note MeowChow I'm not sure how [boo_radley] counted 54 - it's actually 60. You count only the characters inside the sub. You should also add three characters to reset <tt>@r</tt> (thereby making this sub usable more than once). <p> Anyway, here's a solution at 54: <code> sub c{($t,$p)=@_;map{$t-=($x=int$t/$_)*$_;($_)x$x}reverse@$p} </code> <pre> <a href="/index.pl?node=MeowChow"> MeowChow </a> s aamecha.s a..a\u$&owag.print</pre> 87681 87768