Select Code to Download

my $string = "zero   one  two three";
$number = (split /\s+/, $string,3)[1];

use Benchmark 'cmpthese';

...
array  55107/s    --  -34%  -75%
list   84117/s   53%    --  -62%
list3 223896/s  306%  166%    --