[MPlayer-dev-eng] Quiz

[Jonas Fällman]

I sent a really strange version, I noticed a lot of weird things in it
after I sent it (as did you). Here is a better, or at least much shorter
version, haven't done any speed checking on it (but it should be much
slower than all the other version.. but my goal was shortness and not
speed..

while(<>){s|\b(\w)(\w{1,})(\w)\b|$a=$1;$b=$2;$c=$3;for$d(0..99){$l=int(
rand(length$b));$b=~s/(.{$l})(.)/$2$1/};$a.$b.$c|eg;print}

all this in only 129 chars :)

/tarp