Something like:

use strict;
use warnings;

my $run = 1;

while (<DATA>) {
    next if $run && m/^\n/;
    print;
    $run = m/^\n/;
}

__DATA__
data as per sample
[download]

with i/o adjusted for your requirements should do what you need to clean up multiple line breaks.