No, sorry - I'm fresh out of ideas.

What have you tried? Maybe seeing what you've already worked through and where you're having trouble with it might spark an idea or two.

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]