perl -MO=Deparse -e 'while(<>) { }' while (defined($_ = )) { (); } -e syntax OK