Help for this page
>perl -MO=Deparse -pe1 LINE: while (defined($_ = <ARGV>)) { ... print $_; } -e syntax OK