ls -d1 T0*/ | perl -ne 'chomp; chop; chop; my $t=$_; my $fout="$t\/$t\_TR.all.dat"; open(FOUT, "> $fout") || die "Cannot open fout $fout : $!\n"; my @fs=glob("$t\/*.newout"); if($#fs>0) { @fs = glob("$t\/*m*.newout"); } for $f(@fs){ if($f=~ /$t\/.*?m(\d+).newout$/) { $trtarg="$t\.$1"; } else { $trtarg=$t; }   open(F, $f) || die "Cannot open input $f : $!\n"; while(<F>) { next if /^Model\tTarget/; my @fs=split; print FOUT "$trtarg\t$fs[0]\t$fs[7]\n"; } close(F); } close(FOUT); ' &