Select Code to Download

while(<DATA>){@x=split;for(@x){$o=/[.,]$/?2:1;$m=substr$_,0,1,'';
$e=substr$_,-$o,$o,'';$m.=substr$_,rand(length),1,''while$_;$_="$m$e"}
print"@x\n"}

__DATA__
Down that path lies madness. On the other hand, the road to hell is pa
+ved with melting snowballs.
...
Randal said it would be tough to do in sed. He didn't say he didn't un
+derstand sed. Randal understands sed quite well. Which is why he uses
+ Perl.
As usual, I'm overstating the case to knock a few neurons loose, but t
+he truth is usually somewhere in the muddle, uh, middle.
Of course, I reserve the right to make wholly stupid changes to Perl i
+f I think they improve the language.