Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    'whole_pat-o'   => sub {$target =~ /$whole_pat/o},
    'whole_re'      => sub {$target =~ $whole_re},
});

              Rate grep_str grep_RE inline inline-o whole_pat-o whole_
+pat whole_re
grep_str    96.6/s       --     -2%   -67%     -67%        -67%      -
+67%     -67%
...
whole_pat-o  297/s     207%    199%     0%       0%          --       
+-0%      -0%
whole_pat    297/s     207%    200%     0%       0%          0%       
+ --       0%
whole_re     297/s     207%    200%     0%       0%          0%       
+ 0%       --

              Rate grep_str grep_RE inline inline-o whole_re whole_pat
+ whole_pat-o
grep_str    97.5/s       --     -2%   -94%     -94%     -94%      -94%
+        -94%
...
whole_re    1707/s    1650%   1610%     1%       1%       --       -0%
+         -0%
whole_pat   1707/s    1650%   1610%     1%       1%       0%        --
+         -0%
whole_pat-o 1707/s    1650%   1610%     1%       1%       0%        0%
+          --

             Rate grep_str grep_RE inline inline-o whole_pat-o whole_p
+at whole_re
grep_str    169/s       --     -4%   -46%     -46%        -46%      -4
+6%     -46%
...
whole_pat-o 313/s      85%     77%     0%       0%          --       -
+0%      -0%
whole_pat   313/s      86%     77%     0%       0%          0%        
+--       0%
whole_re    313/s      86%     77%     0%       0%          0%        
+0%       --