#!/usr/athena/bin/perl

while(<>){
	@d = split(",", $_);
	$latlong = $d[3];
	$latlong=~/N(\d\d\d).(\d\d).(\d\d\d)/;
	$lat = $1 + ($2/60) + ($3/60000);
	$latlong=~/W(\d\d\d).(\d\d).(\d\d\d)/;
	$long = $1 + ($2/60) + ($3/60000);
	$x = int($d[4]);
	$y = int($d[6]);
	$z = int($d[8]);
	print "$lat $long $x $y $z\n";
}