P:\test>p1 perl> use Clone qw[clone];; perl> $foo = { bar => qr[bar] };; perl> print Dumper $foo;; $VAR1 = { 'bar' => qr/(?-xism:bar)/ }; perl> $foo2 = clone $foo;; perl> print Dumper $foo2;; $VAR1 = { 'bar' => qr/(?-xism:bar)/ };