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

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