http://www.perlmonks.org?node_id=83025


in reply to PGA Golf, Round 1

Hole 6.

This is really ugly and much too long, but whatever: 

    sub hole{$r='([aeiou])';sort{($a=~$r)[0]cmp($b=~$r)[0]}@_}
             123456789_123456789_123456789_123456789_12345678

[download]
48 characters, I think.

In Section Meditations