Select Code to Download

my $number = ( split ' ', $string, 3 )[1];

#! perl -slw
use strict;
...
list\s+  26330/s      92%      67%       2%       --     -16%     -16%
list\s+3 31370/s     129%      99%      22%      19%       --      -0%
list' '3 31493/s     130%      99%      22%      20%       0%       --