cat ../../../targ_domains.txt | perl -ne 'chomp; my $t=$_; my $outdir = "..\/$t"; `mkdir $outdir` unless -e "$outdir"; my $script = "../../../tools/runcontactAB.tmp.sh"; my $rundir = "/home/sadreyev_3/new_gdtts_analys/correlation_w_scores/contact_ab"; my $indir = "../../../target_domains\/$t"; my @targs = glob("$indir\/*.pdb"); my $moddir = "../../../model_domains\/$t"; my @mods = glob("$moddir\/*.pdb"); for $targ(@targs) { for $m(@mods) { $m=~ /$moddir\/(.*?)\.pdb$/ || die "Weird model name $m for target $t\n"; my $serv=$1;  $targ =~ /$indir\/(.*?)\.pdb$/ || die "Weird indiv. target file name $targ for target $t\n"; my $indivt=$1; my $fout = "$outdir\/$indivt\_$serv\.cont_norm"; `cp ../../../tools/templ.sh $script; echo "cd $rundir\/launch_contAB" >> $script; echo "../../../tools/contact_abnorm.pl -t $targ -m $m -o $fout" >> $script; qsub $script`; } } ' > & ../log.tmp &