Down to 52

[Lorphos]

How about this:

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

That's 52 chars without the "perl -pe"

[tye]

perl -pe "s#\B\w+\B#join$,,so­rt{rand~0}split$,,$&#ge"
#         12345678 1 2345678 2 2345678 3 2345678 4 2

                - tye