Select Code to Download

cmpthese( -1, { 'a' => GRT($s), 'b' => ST($s) } ) ;

cmpthese(-3, {
    grt => sub { GRT($s) },
    st  => sub { ST($s) }
});

      Rate  grt   st
grt 2.75/s   -- -76%
st  11.6/s 320%   --

       split m{(?<!\A)(?=>>>)}, $s     # GRT
       split       (/^(?=>>> )/m, $s)  # ST

use Test::More tests => 1;
is GRT($s), ST($s), 'same';

1..1
ok 1 - same
      Rate  st grt
st  11.7/s  -- -3%
grt 12.1/s  3%  --