in reply to Read Perl files inside a directory and its subfolders
Or try File::Find::Rule, which I find much easier to use.