#!/usr/bin/perl

while(<STDIN>){
  s/^.* at //;
  s/ [a-z]*gps fix.*\(/ /;
  s/ kmh\).*//;
  s/ S//;
  s/ E//;
  s/\.//g;

  print $_;
}