my $str1 = '???';
 my $str2 = '???';
 my $re = qr/$str1$str2/;
 # ...?