% perl5.00503 -MO=Deparse -pe '$_=$.' LINE: while (defined($_ = )) { $_ = $. } continue { die "-p destination: $!\n" unless print $_; }