Help for this page

Select Code to Download

Select or download this

$ perl -MO=Deparse -e'while ($symbol = <IN>) { chomp($symbol) }'
while (defined($symbol = <IN>)) {
    chomp $symbol;
}
-e syntax OK