Help for this page

Select Code to Download

Select or download this

while(defined(my $line = <EXP>)) {
  next unless $line =~/\s/;
  ...

}