#/bin/perl/

use strict;
use warnings;

open my $input, '<', './2kc29-out.txt'  or die $!;
open my $output, '>', 'test_thu1.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 $format = "%8.3f" . "%10.3f"x(@columns-3) . "\n";
  printf $output $format, @columns[2..$#columns];                     
  
}