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

##</code><code>##

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