How to find all words in a text with two vowels using a regular expression?

Question

Perl

Given any text, you need to find all words with two vowels.
I tried to do it myself, but I can not understand where to start?

Answer 1

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use open qw/:std :utf8/;

my $text = "Как найти слова с двумя гласными?";
my @words = split /\s+/, $text;
my ($count, @result, $tmp_word);
for my $word (@words) {
    $tmp_word = $word;
    $count = ($word =~ s/[уеёыаоэяию]//g);
    push @result, $tmp_word if $count == 2;
}

for (@result) {
    print $_, "\n";
}

Answer 2

With two definite vowels, or containing 2 vowels?
Regex101 is a great testing tool, paste your text there and experiment.