Select Code to Download

while (<>) {
        s/\n\n/\n/gs;
        print;
    }

while (<>) {
next if $_ =~ m/\n{1}/;
if ($_ =~ m/\n{2}){s/\n{2}/\n/gs}
elsif ($_ =~ m/\n{3,}){s/\n{3,}/\n\s/gs}
}