my(@input_array) =();

chomp(@input_array = <STDIN>);

#===== Search for a e i o and u (case insensitive)
foreach $_ (@input_array)
{
  if ($_ =~ /a/i && /e/i && /i/i && /o/i && /u/i)
  {
    print $_, "\n";
  }
}

##</code><code>##

my(@input_array) =();
my($one_line) = '';

chomp(@input_array = <STDIN>);

#===== Search for a e i o and u (case insensitive)
foreach $one_line(@input_array)
{
  if ($one_line =~ /a/i && /e/i && /i/i && /o/i && /u/i)
  {
    print $one_line, "\n";
  }
}