line1
line2

line4

line6

##</code><code>##

line1
line2
line4
line6

##</code><code>##

open(FILE, "<$MODFILE") || die "File not found";
my @lines = <FILE>;
close(FILE);

my @newlines;
foreach(@lines) {
   $_ =~ s/\n\n+/\n/g;
   push(@newlines,$_);
}