if (lc($_) =~ y/aeiou// == 1) {
  # $_ enthält genau einen Vokal
}