For a more Perl-ish version, try something like this...
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 ;
_______________
DamnDirtyApe
Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
--Friedrich Nietzsche