We don't hand out "quick Perl script(s)" as a reward for posting a question without any evidence of effort to solve a problem.

We do, however, go to considerable lengths to assist those who take a stab at their problems and show their efforts.

Absent that, a few hints: Super Search for recurse, 'file path' or subdirectories; search for possibly relevant modules using PPM (if on windows/ActiveState] or search.cpan.org/ (the docs will likely provide enough info to make selections; using one or more modules from CPAN probably the most reliable way for you to work) and maybe even a tut or two in Tutorials.