perl -MO=Deparse,-p -we 'print 1 if $foo < $bar'
(($foo < $bar) and print(1));
-e syntax OK