$ perl -E 'if (foo eq "foo") { say STDOUT yes } '
yes