#!/usr/bin/perl -w 

use POSIX;
#use encoding 'cp1251';

#if ( not $#ARGV + 1) { 
#    print "GPS invertor v.0.1\n";
#} else { 

open (FILE, "  maps.txt");
while (<FILE>) {
    chomp; 
    @str = split(/ /, $_);
    
    #[$proj, $fname, $scale, $end_x, $end_y, $first_lon, $first_lat, $first_x, $first_y, $secnd_lon, $secnd_lat, $secnd_x, $secnd_y] = @str;
    print "$str[0] $str[1] $str[2] $str[3] $str[4] $str[6] $str[5] $str[7] $str[8] $str[10] $str[9] $str[11] $str[12]\n";
};

close FILE;