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