http://qs321.pair.com?node_id=187809


in reply to Trying to convert shell script to Perl

for $DIR (split/\s+/,`ls -d [a-k]* lts mon [n-z]*`){
    if (-d "$DIR/bld"){
        system (qq(cd $DIR/bld;cbsfpfg.exe `echo "cbs"$DIR$RELEASE $DI
+R`));
    }             
}

[download]
Update: added split to better emulate shell script

In Section Seekers of Perl Wisdom