my $qr1 = /pattern/;
my $qr2 = /$qr1/;