my $patt = shift;
$patt = eval "qr/$patt/"; # eeeww
# patt is now (?-xism:aBC) if given 'a\Ubc'
my $target = 'aBC';
print $target =~ /$patt/; # prints 1