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