find({
  preprocess => sub {
    return grep { not(-d and /dir(?:One|Two|Three)/) } @_
  },
  wanted => \&processSub,
}, $startDir);