return unless $File::Find::dir =~ /[IPD]\d{8}$/;