Select Code to Download

$_ = "  one two three    four five six";
@ary = split;
print $ary[3];

$str = "  one two three    four five six";
$str =~ s/^\s+//;  # remove leading spaces

@ary = split /\s+/, $str;
print $ary[3];