perl -MO=Deparse,-p -e '$x=1;print 1 if $x or print 0'
($x = 1);
(($x || print(0)) and print(1));
-e syntax OK