Help for this page

Select Code to Download

Select or download this

while( <INFILE> ) {
  chomp;
...
  next unless length $_;
  print OUTFILE $_, "\n";
}