my $str = '\'Who is \'(.*?)\?';
if "Who is THIS?" ~~ / <{$str}> / {
        print "match ! $0";
}