in reply to Re^2: Txet Maglning Glof, Ayobndy? (eagle)
in thread Txet Maglning Glof, Ayobndy?

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

[download]
That's 52 chars without the "perl -pe"

Replies are listed 'Best First'.
Re^4: Txet Maglning Glof, Ayobndy? (42)
by tye (Sage) on Sep 18, 2003 at 15:58 UTC 
    perl -pe "s#\B\w+\B#join$,,so­rt{rand~0}split$,,$&#ge"
#         12345678 1 2345678 2 2345678 3 2345678 4 2

    [download]
                    - tye
[reply]
[d/l]

In Section Seekers of Perl Wisdom