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

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

Replies are listed 'Best First'.
Re^4: Remove whitespace between lines
by wrkrbeee (Scribe) on Feb 03, 2015 at 18:55 UTC
    That's it, works great! Appreciate your interest and patience! :-)
      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 }