my $Tmp="/a/i"; my $RegEx=eval "qr$Tmp";