69 strokes -

#!perl -n
next if(($.%2)||(((length)-1)%2));!((tr/aeiouy//)%2) and print"$_";

> #!perl -n
> next if(($.%2)||(((length)-1)%2));print"$_" unless((tr/aeiouy//)%2);

But ... Still prints even sets of vowels :(
-Sx-

Reply via email to