$ perl -Mstrict -Mwarnings -e 'print "foo\n" if "two" == "two";'
Argument "two" isn't numeric in numeric eq (==) at -e line 1.
Argument "two" isn't numeric in numeric eq (==) at -e line 1.
foo