Glad you like it. That works with perl glob, too.

$ perl -e'print "@{[glob q({c,t}{a,o}{t,re})]}$/"'
cat care cot core tat tare tot tore
$
[download]