Select Code to Download

# want fourth word
my $str   = "one two three four five";
my @array = split / /, $str;
my $word  = $array[3];

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