my $qr_g=qr/foo/g;
my $other=qr/balh $qr_g/;