$q=q+s~|})jwx}qn{)yn{u)qjltn{)+;$l=5**2;sub ntljq{chr @_->[0];}sub xwj
{substr@_->[0],@_->[1],@_->[2];}sub qn{print@_->[0].qq#\n\n#;}$t=0;sub
ny{ord @_->[0];}while($t<$l){$y.=ntljq(ny(xwj($q,$t++,1))-9,);}&qn($y)
+;
[download]