$File::Find::name
    =~ m{^/var/log/HOSTS/([^/]+)/([^/]+)/(\d+)/(\d+)/(\d+)$}
      and push, @dirs, $File::Find::name;