#!/usr/bin/perl -w

$_ = " one two     three    four  ";
m/\s*(\w+\s+){3}(\w+)/;

$field4 = $2;
print $field4;