if (lc($_) =~ tr/aeiou/v/ == 1) {