Try Clone, it doesn't appear to exhibit the same limitation:

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)/
        };
[download]