while (<>) {
   my @temp = split / /;
   print $temp[4],"\n";
}