ls -d1 T0*/ | perl -ne 'chomp; chop; chop; my $t=$_; my $fout="$t\/$t\_dali.all.dat"; open(FOUT, "> $fout") || die "Cannot open fout $fout : $!\n"; my @fs=glob("$t\/*.dali"); for $f(@fs){ $f =~ /^$t\/($t.*?)\_(.*?)\.dali$/ || die "Weird dali file name $f\n"; my $dalitarg=$1; my $serv=$2; open(F, $f) || die "Cannot open input $f : $!\n"; $/ ="\n Sbjct=mol2 Z-score="; my @chunks=<F>; close(F); $/="\n"; if($chunks[1] =~ /^(.*?)\<\/h2\>/) { $z=$1; print FOUT "$dalitarg\t$serv\t$z\n";  } else { warn "No Z-score in file $f\n"; }  } close(FOUT); ' > & collect_daliZ.log &