if( (my $test = lc($_)) =~ tr/aeiou/vvvvv/ == 1 );