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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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