qwurx [shmem] ~ > perl -wle '$foo = "bar"; print "not 1" if $foo != 1'
Argument "bar" isn't numeric in numeric ne (!=) at -e line 1.
not 1