Select Code to Download

use strict;
use warnings;
...
print "-" x 80, "\n";
foo( \$R );
print "-" x 80, "\n";

Matching REx "\G\d+R" against "QQQQQQQQQQ"
Intuit: trying to determine minimum start position...
...
   2 <RR> <RRRRRRRR>         |  2:END(0)
Match successful!
...

use strict;
use warnings;
...
R_twostep 65.3/s     3147%        --        0%      -15%
Q_twostep 65.3/s     3147%        0%        --      -15%
R         77.1/s     3732%       18%       18%        --

use strict;
use warnings;
...
R_ascii   67.5/s     3287%        7%        6%        --       -1%    
+  -11%
Q_ascii   68.1/s     3319%        8%        7%        1%        --    
+  -10%
R         76.0/s     3715%       21%       19%       13%       12%    
+    --