#!/usr/bin/env perl -w

use strict;

my @topData = <STDIN>;

foreach (@topData) {
   chomp;

   if(/\d.+\s(\w.+)\s(\d.+\.\d%)\s(\d.+:\d.+\.\d.+).+$/) {
	print "$_\n";
   }
}