Select Code to Download

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

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

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