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