print $word if $word=~ m/([aeiou].*){3}/i;