in reply to greping problem

It's not grep, but I'm a big fan of using the right tool for the job. Try File::Find.

-fp