#!perl -p0 $a=!++$-while${while(s/[a-z]/,/){$w=$&;1while s/,(\C{8})?$w|$w,/,$+,/;s/,/y:,::>3?$a=$":uc$w/ge}$_=lc;1while s/(\w)(\C{8}) / $2$1/;a};$\=" $- chains"