local $/ = undef;
open IN, "<junk" or die "Couldn't open junk: $!";
open OUT, ">fixed" or die "Couldn't open fixed: $!";

($_ = <IN>) =~ s/\n{2,}/\n/g;
print OUT;

close IN; close OUT;