Re^3: Remove whitespace between lines

[poj]

Try

while (my $line = <$fh_in>)   {       
  print $fh_out $line if ($line !~ /^\s*$/);
}

poj

[wrkrbeee]

That's it, works great! Appreciate your interest and patience! :-)

[Marshall]

A more normal way to do this is to skip the blank lines and then process those lines further.

while (my $line = <$fh_in>)
{ 
   next if ($line ~ m/^\s*$/); #skip blank lines
   #more processing of this non-blank line
}