Help for this page

Select Code to Download

Select or download this
```
while (<FHIN>)
{
    $line=$_;
```

Select or download this

while (<FHIN>)
{
    $line=$_;
    next if $line =~ s/^\s*$/;