Select Code to Download

ok 1 - grtRegex
ok 2 - grtSplit
...
stRegex     112/s     1284%      334%       299%     87%      65%     
+  0%      --     -21%      -22%
grtRegex    143/s     1661%      452%       408%    138%     109%     
+ 27%     27%       --       -0%
grtSplit3   143/s     1663%      453%       408%    139%     110%     
+ 28%     27%       0%        --

use strict;
use warnings;
...
    my( $b1, $b2 ) = ( split m{,}, $b, 3 )[ 0, 1 ];
    return $a2 <=> $b2 || $a1 <=> $b1;
}