Help for this page

Select Code to Download

Select or download this
```
my $line;
while ($line = <>) {
    ...
```

Select or download this

$ perl -MO=Deparse -e 'while (<>) { /(.)/ }'
while (defined($_ = readline ARGV)) {
...
    };
}
-e syntax OK