Select Code to Download

$p=sub{(1x++$,)!~
m,^(11+)\1+$,?$,:
&$p};$_='tr]kdpLn
...
+ord${\});$\=~y'~
' ';print'';chomp
($_=reverse)}#Kai