Help for this page

Select Code to Download

Select or download this
```
while (<$fh>) {
```
Select or download this
```
    s/\s+/ /g;
```
Select or download this
```
    s/$\s//;
```
Select or download this
```
    print lc;
}
```
Select or download this
```
my $linecount = $. ;
```