in reply to Winsock connect problem in perl!!!
Fortunately this answer was lifted from the same site madtoperl lifted the question from.
However, that user was anonymous, and I suppose could be jesuashok.
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/) [download]