while (my $line = <$input>)
{
    next if 1 .. $line =~ /\@TYPE xy/;

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

    printf $output "%8.3f",   $columns[2];
    printf $output " %10.3f", $columns[$_] for 3 .. $#columns;
    print  $output "\n";
}