#!/usr/bin/perl -wn

use strict;
use warnings;
use feature qw( say );

chomp;

# a global match in list context returns number of matches
# so assign to empty list to force list context
next if ( () = m/[aeiou]/g ) > 1;

say;
