perl -pe 
 's#\B\w+\B#join$,,sort({(-1,1)[rand 2]}split$,,$&)#ge'