75

s[\B([^\s]*)\B(?=\w)][join'',sort{.5>rand}split'',$1]ge,print while<DA
+TA>;
[download]

72

s[\B(\S*)\B(?=\w)][join'',sort{.5>rand}split'',$1]ge,print while<DATA>
+;
[download]

66

s[\B(\w+)\B][join'',sort{.5>rand}split'',$1]ge,print while<DATA>;
[download]

P:\test>junk
Down taht path leis madenss. On the ohter hnad, the road to hlel is pe
+avd with mnilteg slwalbnos.
Augltohh the Prel Sloagn is Tehre's More Than One Way to Do It, I htsi
+etae to mkae 10 wyas to do setmonihg.
And don't tlel me there isn't one bit of drecfefine between null and s
+pace, bsauece taht's etcaxly how much dreneciffe there is.
Rdnaal siad it wluod be tguoh to do in sed. He didn't say he didn't ud
+nerasntd sed. Rnaadl udnertsands sed qtuie well. Wchih is why he uess
+ Perl.
As usual, I'm oitasrvetng the case to kcnok a few nnrueos loose, but t
+he truth is ullasuy sreeomwhe in the mudlde, uh, mlddie.
Of crouse, I rseerve the right to mkae wohlly siuptd changes to Prel i
+f I tnhik they ivrompe the lgnuagae.
[download]