my $DIR; for $DIR in `ls -d [a-k]* lts mon [n-z]*` do if (-d $DIR/bld){ system (qq(cd $DIR/bld)); system(qq(cbsfpfg.exe `echo "cbs"$DIR$RELEASE $DIR`)); system (qq(cd ../..)); } done