толи лыжи не едут толи не пойму:<br><br>$ perl -MData::Dumper -e &#39;print Dumper(qr/^(abc|def)$/)&#39; <br>$VAR1 = qr/(?-xism:^(abc|def)$)/;<br><br>$ perl -MData::Dumper -e &#39;print Dumper(eval q{qr/(?-xism:^(abc|def)$)/})&#39;<br>
$VAR1 = qr/(?-xism:(?-xism:^(abc|def)$))/;<br><br>причем это по ходу дела не Data::Dumper виноват, а перловый eval так делает:<br><br>$ perl  -e &#39;print eval q{qr/(?-xism:^(abc|def)$)/}&#39;  <br>(?-xism:(?-xism:^(abc|def)$))<br>
<br>и соответственно если взять некий объект, который содержит регулярное выражение, сериализовать его, затем десериализовать и потом опять сериализовать, то соответствия двух сериализованных значений мы не получим.<br>