Select Code to Download

use strict;
use warnings;
...
undef $/;                                      # Read file into a sing
+le line
(my $line = <$fh>) =~ s/\n(\s*\n){2,}/\n\n/g;  # Delete extra blank li
+nes
printf "%s\n", $line;                          # Show the result

use strict;
...
    (!$b_prev_blank or !$b_this_blank) and printf "%s\n", $line;
    $b_prev_blank = $b_this_blank;
}