#!/usr/local/bin/perl -w
use strict;
use File::Find;

my $dirs = '/web/directory';

find(\&search, $dirs);

sub search {
    print "$File::Find::name\n" if -d and /\A(?:AA|BB|CC)\z/;
}

##</code><code>##

#!/usr/local/bin/perl -w
use strict;
use File::Find;

my $dirs = '/web/directory';

find(\&search, map "$dirs/$_", qw(AA BB CC));

sub search {
    # ...
}