Select Code to Download

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

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

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

P:\test>junk
Down taht path leis madenss. On the ohter hnad, the road to hlel is pe
+avd with mnilteg slwalbnos.
...
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.