Select Code to Download

sub findCycle {
  my $str = @_ ? shift : '';
  $str =~ /^(.*?)\1*$/;
  return wantarray ? ( length $1, $1 ) : length $1;
}

    Rate    0    1    2
0  906/s   -- -58% -85%
1 2143/s 137%   -- -64%
2 5966/s 559% 178%   --

    Rate      0      2      1
0 17.0/s     --   -89%   -99%
2  155/s   812%     --   -94%
1 2465/s 14431%  1494%     --

     Rate     2     1     0
2   222/s    --  -96%  -98%
1  5023/s 2161%    --  -52%
0 10479/s 4615%  109%    --

use strict;
use warnings;
...
  return wantarray ? ( length $1, $1 ) : length $1;
}