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