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

##</code><code>##

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