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

Appears to be about twice as fast as using split. At least, in my benchmark.