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";
  }
}