perl -e '$x = 213; print "got a one\n" if ($x =~ 1)'