I feel so smart... I actually pulled an obscure thing of my own... in perl // redoes the previous re, so

sub hole{sort{($a=~/([aeiou])/)[0]cmp($b=~//)[0]}@_}
         123456789_123456789_123456789_123456789_12
[download]

cuts your hole 6 to 42 chars! my small moment of glory...

Update realized I counted } in sub... actually 42 chars.. not 43...
                - Ant