Help for this page

Select Code to Download

Select or download this
```
while (<>) {
   s/\s+\z//;
   ...
}
```

Select or download this

open(my $fh, '<:crlf', $qfn)
   or die("Can't open \"$qfn\": $!\n");
...
   chomp;
   ...
}