Something like this might work

openddir(DIR, $rootDir);
@sub_dirs = readdir(DIR);
closedir(DIR);

foreach my $d (@sub_dirs) {
    if( $d =~ / regexp / ) {
        # you found your dir
        last;
    }
}
[download]

--
olus