psh% print Dumper $foo $VAR1 = { 'bar' => qr/(?-xism:bar)/ }; psh% $foo2 = Storable::dclone $foo psh% print Dumper $foo2 $VAR1 = { 'bar' => qr/Regexp=SCALAR(0x8df0b40)/ };