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

##</code><code>##

if ( $v == 1 )

##</code><code>##

elsif ( $v != 1 )