my $have_to_newline = $rowsaver=~/^\d/ ? 1 : 0 print $fh "\n" if $have_to_newline && $line_number > 1;