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

# Strip all trailing spaces including blank lines with spaces.
s/[^\n\r\S]+(?=\r?\n)//g;

# Reduces all triple or greater line spacing to double spaced lines.
s/((?:\r?\n){2})(?:\r?\n)+/$1/g;

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