$ perl -MO=Deparse, -pe '' LINE: while (defined($_ = )) { (); } continue { print $_; } -e syntax OK