$string =~ eval $exp ? print STDOUT "match!\n" : print STDOUT "No match!\n";