use Cwd ;
my $curr_dir = cwd ;

opendir DIR , $curr_dir ;
for my $DIR ( grep { /^[a-k]/ || /^lts$/ || /^mon$/ || /^[n-z]/ }
              readdir( DIR )
            )
{
    if ( -d "$DIR/bld" )
    {
        chdir "$DIR/bld" ;
        system 'cbsfpfg.exe', ( 'cbs' . $DIR . $RELEASE ), $DIR ;
        chdir $curr_dir ;
    }
}
closedir DIR ;