perl -e '$in = "/5/"; $m = qr/$in/; print 1 if 5 =~ $m'