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