Help for this page
perl -e '$x = 213; print "got a one\n" if ($x =~ 1)'
if ( $v == 1 )
elsif ( $v != 1 )