my ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j) = split (/\,/,$line);
$a = $a.$c.$i.$b;
if ($e < 0){
$e = abs($e)."S";
} else {
$e = abs($e)."N";
}
if ($f < 0){
$f = abs($f)."W";
} else {
$f = abs($f)."E";
}
$d =~ s/\;/\,/gi;
$j =~ s/\;/\,/gi; #line 49

my ($k,$l) = split (/\;/,$h);

if(length($l) > 0){ #line 53
print FILE $d."|".$g."|".$i."|".$k."|".$e.", ".$f."\n";
} else {
print FILE $d."|".$g."|".$j."|".$k."|".$e.", ".$f."\n";
}