Select Code to Download

#!/usr/bin/env perl -0777 -p
# -0777, idiom for "slurp" mode.

...
s/((?:\r?\n){2})(?:\r?\n)+/$1/g;

# -p print at the end of each implicit loop.