in reply to Re^4: Remove whitespace between lines
in thread Remove whitespace between lines

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 }