Select Code to Download

@x = glob('{a,b,c}'x3); # for testing: all permutations, plus many mor
+e

...
for $i (@x) {
    $i =~ $x and say $i; # was $x =~ $i
}

abc
acb
...
bca
cab
cba

@x = glob('{a,b,c}'x6);
$x = '(?:a()|a()|b()|b()|c()|c()){6}\1\2\3\4\5\6'; # limited repeats a
+llowed
...
for $i (@x) {
    $i =~ $x and say $i; # was $x =~ $i
}

aaaabc
aaaacb
...
cccbca
ccccab
ccccba

@x = glob('{abc,bcd,cde}'x3);
# permutations of 'abc/bcd/cde'
...
for $i (@x) {
    $i =~ $x and say $i; # was $x =~ $i
}

abcbcdcde
abccdebcd
...
bcdcdeabc
cdeabcbcd
cdebcdabc