/(?=.*a)(?=.*e)(?=.*i)(?=.*o)(?=.*u)/i

##</code><code>##

my @regex_pieces = ();
foreach my $permutation (@permutations) {
    my @vowels = split //, $permutation;
    push @regex_pieces, join(".*", @vowels); 
}
my $regex = qr/@{[join("|", @regex_pieces)]}/i;

##</code><code>##

------------
:Wq
Not an editor command: Wq