find({
  wanted     => \&foo,
  preprocess => sub { grep !/^d/i, @_ },
}, '/somedir');