And when they wonder why /5/ doesn't match 5?

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