On Apr 22, 2006, at 18:45, Alex Barrett wrote:

> Might as well send it in seperately:
>
> puts gets.gsub(/\B[a-z]+\B/i){|s|l=s.length
> ;l.times{|i|r=rand(l);s[i],s[r]=s[r],s[i]};s}

There was some golf in ruby-talk when that study was mentioned in  
Slashdot back in 2003, it was an intensive day :-) and I blogged some  
solutions:

     http://www.advogato.org/person/fxn/diary.html?start=238

The Perl one-liner is just a start, I am sure a Perl golf tournament  
would squeeze that one quite a lot.

-- fxn