my $four = (split /\s+/, $_, 5)[3];
the 5 just says split not to bother with more than 5 elements, so the rest
of the string (beginning with the 5th element)
won't be splitted. then this: (...)[3]
is a list slice which takes the 4th element of the list.