Select Code to Download

use strict;
use warnings;
...
                              },
                             }
                      );

       Rate  r1  r3
r1 295926/s  -- -1%
r3 299980/s  1%  --

my $string = (' ' x 1000) . 'x' . (' ' x 1000);

       Rate   r3   r1
r3  61890/s   -- -79%
r1 297607/s 381%   --