in reply to Down to 52
in thread Txet Maglning Glof, Ayobndy?

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

[download]
                - tye

In Section Seekers of Perl Wisdom