In perl, anytime you need to parse a directory tree, File::Find is a good answer. You have options like changing to the directory you're parsing, or going depth-first. You can also get the file's name, parent directory, path, etc.

Definitely check out the cvs options first.

-C

---

print(map(lc(chr),split(6,qw/99672682673683684689632658645641610607/)));