if($a =~ /[$b]/) { print "true \n" };