ls -d1 T0*/ | perl -ne 'chomp; chop; chop; my $t=$_; my $fouta="$t\/$t\_conta.all.dat"; my $foutb="$t\/$t\_contb.all.dat";  open(FOUTA, "> $t\/$t\_conta.all.dat") || die "Cannot open fouta $fouta : $!\n"; open(FOUTB, "> $t\/$t\_contb.all.dat") || die "Cannot open foutb $foutb : $!\n";   my @fs=glob("$t\/*.cont"); for $f(@fs) { my $v=`cat $f`; chomp($v);  my @fs = split /\t/, $v; $fs[0] =~ s/\.pdb$//; $fs[1] =~ s/\.pdb$//; print FOUTA "$fs[0]\t$fs[1]\t$fs[2]\n"; print FOUTB "$fs[0]\t$fs[1]\t$fs[3]\n";  } close(FOUTA); close(FOUTB); ' &