my $str  = "one two three four five";
my $word = ( split / /, $str )[3];