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