Help for this page

Select Code to Download

Select or download this
```
  next if(/^#/g);
  next if(/^\n/g);
```

Select or download this

while(<IFH>) {
  s/#.*//;
...
  next if !length();
  $line .= $_;
}