#!/usr/bin/perl
open(FH,"<mygps.gps"); #
while(<FH>)
{ 
#for ($i= 1; $i <=10; $i++) {
  $line = $_; # $_ is the line 
  #print $line;
  chop($line);
  @fields=split(/,/,$line);
  if($fields[3] > 3700 ){
    $fields[3]=$fields[3] - 3700; #latitude= N37 degree
  } else {
    $tmp=$fields[3] - 3600; #latitude= N36 degree
    $fields[3]= $tmp - 60.;
  }
  if($fields[5] < 14000){
    $tmp = $fields[5] - 13900; #longitude 139 degree
    $fields[5] = $tmp - 60.;
  } elsif ( $fields[5] < 14100){
    $fields[5]=$fields[5] - 14000; #longitude = E140 degree
  } else {
    $tmp = $fields[5] - 14100; # longitude = E141 degree
    $fields[5] = $tmp + 60.;
  }
  $myout = $fields[5]." ".$fields[3]."\n";
  print($myout);
  $line = <FH>; # skip one line
}