perl -e '$in = "/5/"; $m = qr/$in/; print 1 if 5 =~ $m' [download]
In reply to RE (tilly) 5: Converting RegExs. by tilly in thread Converting RegExs. by dcorbin