@x = glob('{abc,bcd,cde}'x3);
# permutations of 'abc/bcd/cde'
$x = '(?:abc()|bcd()|cde()){3}\1\2\3';

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