Help for this page

Select Code to Download

Select or download this

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

Select or download this

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

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