$s = "match";
print "yup" if $something =~ /$s/;