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