ls -d1 */shrink* | perl -ne 'chomp; chop; /^(.*?)\_(.*?)\_(.*?)\/shrink\_(.*?)$/ || die "Weird directory name : $_\n"; my $q0=$1; my $s0=$2; my $z=$3; my 
$fac=$4; my $q = substr($q0,0,4); my $s = substr($s0,0,4); my $dir=$_;  my $qpdb="$dir\/$q\_.pdb\.mod"; my $spdb="$dir\/$s\_\.$fac\.pdb\.mod"; `../tools/run_lga_4cutoffs.pl -t $qpdb -m $spdb -o $dir >& $dir\/runlga.log`; ' &