Re: Re: Re: Re: Competition fuels obsession over Perl [golf]

[eyepopslikeamosquito]

For the "less than ten vowels" version, you can also lose one by getting rid of that space after the "map{9-".

Alas, Perl complains with Unrecognized file test: -y if you try that. However, using your lc trick saves two more strokes:

print+map{/./;9-$&.$'}sort map{9-lc=~y/aeiou//." $_\n"}@F

You could allow up to 90 vowels (at the cost of 3 strokes) by changing 9 to 99 and . to ..

[educated_foo]

Hm... "9-y///" works fine on 5.8.3 for me, while 5.6.0 chokes. Nothing jumps out at me in perldelta, but it does mention that parsing of m// has changed.