ls -d1 /home/sadreyev_3/new_gdtts_analys/shrink_pdbs/robetta/T05*/shrink* | perl -ne 'chomp; chop; /\/(T0.*?)\/shrink\_(\d.*?)$/ || die "Weird directory name : $_\n"; my $targ=$1; my $fac=$2; my $dir=$_; my $script = "../tools/runlga_rob_T5.tmp.sh"; if($c==0) { `cp ../tools/templ.sh $script`; $c=1; }   my @qpdbs = glob("/home/sadreyev_3/new_gdtts_analys/target_domains\/$targ\/$targ*.pdb"); if($#qpdbs==0) { $qpdb=$qpdbs[0]; } else { $qpdb = "/home/sadreyev_3/new_gdtts_analys/target_domains\/$targ\/$targ\.1\.pdb"; } my @spdbs = glob("$dir\/\*\.$fac\.pdb"); for $spdb(@spdbs) { $spdb =~ /^$dir\/(.*?)\.$fac\.pdb$/ || die "Weird subj name $spdb : $!\n"; my $sname=$1; my $cmd="../tools/run_lga_4cutoffs.pl -t $qpdb -m $spdb -o $dir >& $dir\/runlga\_$sname\.log"; `echo "$cmd" >> $script`;  } ' &