Select Code to Download

cmpthese(0, {
              substr => sub {
                  my @l = @list;
...
                  s/(?=..)$/./ for @l;
              },
             });

         Rate substr  regex regex2
substr 73.1/s     --   -39%   -71%
regex   121/s    65%     --   -52%
regex2  250/s   242%   107%     --