You can use the prune feature to skip a subtree.

find(sub {
   if (...[ is dir to skip ]...) {
      $File::Find::prune = 1;
      return;
   }

   ...
}, $dir);
[download]