in reply to Search and store solution?

Start with File::Find - a module that should come with your distribution of perl, and this node: Beginners guide to File::Find.