File::Find (ok, you have to write the filtering regexp yourself, but all the descending and searching is done for you)