Sure, lots of people do. Though we'd be more inclined to help if we see what you've tried so far, what works, what doesn't work, some sample input data, etc. Take a look at How (Not) To Ask A Question for more details.

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