Select Code to Download

my $match= "hi";
my $re= qr/($match)/;
...
$match= "lo";
$re= qr/($match)/;
print "\$re is $re\n";

$match is hi
$re is (?-xism:(hi))
$re is (?i-xsm:(hi))
$re is (?-xism:(lo))