my $nl = "";
while (<FH>) {
    next unless /\S/;
    $nl = chomp;
    print $nl unless /^\d/ || $. == 1;
    print;
}
print $nl;  # Prints newline if we saw at least one non-blank file.