find(
      {
        wanted     => \&subsearch,
        preprocess => sub { grep { -f || -d _ && /^AA|BB$/ } @_ }
      },
      $dir
);