#!/usr/bin/perl -wd

$n = 38;

for ($i=0;$i<$n;$i++) {
    $file = "trp38.dhdl.$i.xvg";
    @lines  = `tail -10056 $file`;
    open(OUTF,">dhdl.$i.xvg");
    foreach $l (@lines) {
	if (($l =~ /^\#/) || ($l =~ /^\@/)) {
	    print OUTF $l;
	} else {
	    @vals = split(/\s+/,$l);
	    printf OUTF "%.4f %.6f %.4f %.4f",$vals[0],$vals[1],$vals[2],$vals[3];
	    for ($j=0;$j<$n;$j++) {
		printf OUTF " %.4f",$vals[$j+4]; 
	    }
	    print OUTF "\n";
	    
	}	
    }
    close(OUTF)
}