Select Code to Download

use strict;
use warnings;
...
    "qr"  => sub { 1 while $s =~ /$re/g            },
    "o=1" => sub { 1 while $s =~ /\G $pat \D+ /gxo },
};

      Rate  o=0   qr  o=1
o=0 3.12/s   --  -8% -59%
qr  3.39/s   8%   -- -55%
o=1 7.55/s 142% 123%   --