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
}
[download]