#/bin/perl/

use strict;
use warnings;

open my $input, '<', './2kc29-out.txt'  or die $!;
open my $output, '>', 'test_thu2.txt' or die $!;

while (my $line = <$input>) {

  chomp $line;            
  $line =~ s/^\s+//;      

  next if 1 .. $line =~ /\@TYPE xy/; #perlop range operators

  my @columns = split /\s+/, $line;  

  my $col1 = shift@columns;  # column 1 (ignore)
  my $col2 = shift@columns;  # column 2 (ignore)
  my $col3 = shift@columns;  # column 3 (keep) 

  my $result = printf $output ("%8.3f",$col3); # column 3 format

  # loop over remaining columns
  for my $c (@columns) {
    my $data = printf $output ("%10.3f",$c);
    $result .= " $data";  # append $result
 }
    printf $output "$result\n";                    
}