Schau dir mal die Doku zu File::Find an. In der wanted-Funktion musst du dann abfragen, ob es sich um einen Ordner handelt (das geht mit -d) und eben ob die weiteren Kriterien stimmen.

Wenn deine wanted-Funktion zum Beispiel so ist:

dann werden eben alle Ordner ausgegeben.

Ein Minimalprogramm, das alle Ordner ausgibt:
perl -E'use File::Find;find(sub{-d and say},".")'