$ perl -MO=Deparse -pe 'print' LINE: while (defined($_ = )) { print $_; } continue { die "-p destination: $!\n" unless print $_; } -e syntax OK