If you decide to go with File::Find and are Unix find savvy, check out the handy find2perl script. Write a find command line that does what you want and then replace 'find' with 'find2perl' and it will generate the code for you.

Although for your specific task, File::Find may be overkill. The various glob solutions others have posted should serve you well.