Select Code to Download

use Benchmark qw(:all);

...
print "\n";

cmpthese(-1, $these);

count      3
regex      3
...
split 335814/s    --   -3%  -30%
regex 345739/s    3%    --  -27%
count 476625/s   42%   38%    --