Super Search is your friend. The docs for File::Find, File::Find::Rule, and open should get you started. If you are still having problems with your code after you read those, post back with the snippet that's giving you trouble.

HTH,