Help for this page
C:\temp>perl -MO=Deparse -lne "" BEGIN { $/ = "\n"; $\ = "\n"; } LINE: while (defined($_ = <ARGV>)) { chomp $_; }
C:\temp>perl -MO=Deparse -nE "" LINE: while (defined($_ = <ARGV>)) { chomp $_; } -e syntax OK