$p=sub{(1x++$,)!~
m,^(11+)\1+$,?$,:
&$p};$_='tr]kdpLn
x[in__ffcx_rl|rI'
; while($\=chop){
$\=chr(-$,+$p->()
+ord${\});$\=~y'~
' ';print'';chomp
($_=reverse)}#Kai