Have you seen the preprocess and postprocess predicates in newer versions of File::Find? It can be used for exactly that purpose.

Makeshifts last the longest.