my $blank_lines = 0;
while (<>) {
    if ($_ eq "\n") { ++$blank_lines }
    else {
        print "\n" x $blank_lines if $blank_lines != 1;
        print;
        $blank_lines = 0;
    }
}
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.