http://www.perlmonks.org?node_id=590535


in reply to SFTP is too slow...

Hi sched,

Try googling for a bevy of answers.



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