if ($file =~ /[aeiou]{2}/) {
  print $file;
}