And trim 6 chars off the rival:

perl -MList::Util=/./ -pe's:\B\w+\B:join"",shuffle $&=~/./g:ge'
[download]

(update: changed this from using split too; thanks Roy_Johnson)