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