Schade, dass Du den Perl-Code Deines Versuches nicht zeigst. Dann könnte man auf dessen Basis beraten.

Mein Vorschlag wäre:

Wenn Du es noch nicht hast, installiere Dir das Modul File::Find::Rule nach und verwende es. Auf Basis der Beispiele in der Synopsis sollte die gewünschte Lösung schnell erreicht werden ;-)