my $newlines = 0;
while (<$file>) {
    if (/^$/) {
        $newlines++;
    }
    else {
        print "\n" x $newlines;
        print;
        $newlines = 0;
    }
}