in reply to Check if dir exist using regexp

I think File::Find has this capability, otherwise you could use File::Find, then filter the directories found with Perl's grep.