$ perl -MO=Deparse -wle' $x = 1; if ($x) { print 1 } else { print 0 }' BEGIN { $^W = 1; } BEGIN { $/ = "\n"; $\ = "\n"; } $x = 1; if ($x) { print 1; } else { print 0; } -e syntax OK