> perl -e '@a=qw(*.txt xyz.boo);foreach $f (@a) {print "$f->";$y=glob($f);print $y,"\n";}'
*.txt->abc.txt
xyz.boo->def.txt