Read up on perlopentut.

Basic ingredients you'll need: open, opendir, -X, last, index / perlre.

But once you know how-to, don't do it manually. Use File::Find, or File::Find::Rule, etc.