perl -MO=Deparse,-p,-x9 -e "if ($/) {print 1} else {print 2}" ($/ ? do { print(1) } : do { print(2) }); -e syntax OK perl -MO=Deparse,-p,-x9 -e "$/?print 1:print 2" ($/ ? print(1) : print(2)); -e syntax OK