Select Code to Download

perl -e '$/--;$_=<>;s/[ \t]+/ /g;s/ ?(\r?\n) ?/$1/g;s/($1){3,}/$1$1$1/
+g;s/[\s\r\n]+(:END)/$1/;print'

perl -e '$/=undef;while(<>){tr/ \t/ /ds;s/ ?(\r?\n) ?/$1/g;s/\s+:/:/g;
+s/(\r?\n){3,}/$1$1$1/g;print}'