Help for this page

Select Code to Download

Select or download this

while (<$f>){
  next if /^#/;
...
  next unless length;
  push @lines, $_;
}