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

my $dirs = '/web/directory';


find(\&search, $dirs);

sub search
{
if (-d =~ 'AA' or 'BB' or 'CC')
{
print "$File::Find::name\n"
}
}