Select Code to Download

3_2_-1 => -44.368_23.583_-218.345_0.983_-0.012_0.005_-0.382_0.041_0.20
+5_-0.538_-0.876_0.100      -56.368_2.583_-28.745_0.883_-0.012_0.005_-
+0.382_0.041_0.205_-0.538_-0.876_0.100 ...

my $input = $ARGV[0];
open(INFILE,"$input") or die "cannot open file $input!\n";
...
        my $new_z=$x*$t[2]+$y*$t[5]+$z*$t[8];
        return ($new_x,$new_y,$new_z);
}