Ich nehme mal an, dass bedeutet du willst die erste Unterebene (definiert durch /^\d{4}$/ oder ähnlich), aber nicht deren Unterverzeichnisse?

Dann studiere nochmal perldoc File::Find. Du kannst die preprocess-Option verwenden um die Unterverzeichnisse die du nicht mehr durchsuchen willst an dieser Stelle auszufiltern.