#!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"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).