while ( <> )
{
   $_ =~ s|^(.*?\s){3}([^\s]*).*$|$2|;
   print $_ . "\n";
}