If you are looking for a Perl solution see File::Find::Rule

The File-Find-Rule-XPath module is even designed for exactly this type of search.