Select Code to Download

'X' =~ /^X$/

#!/usr/bin/env perl

...
    qr_local_re   => sub { STRING =~ /$main::local_re/  }, 
    qr_local_re_o => sub { STRING =~ /$main::local_re/o }, 
};

                   Rate
re_qr          550709/s
...
qr_const      4745450/s
re_re         4748039/s
re_str        4814042/s

                   Rate re_qr re_qr_o qr_local qr_const_re qr_state qr
+_local_re qr_our qr_state_re qr_my_re qr_my qr_our_re qr_state_re_o q
+r_local_re_o qr_my_re_o qr_const_re_o qr_our_re_o re_re_o qr_const re
+_re re_str
re_qr          550709/s    --     -2%     -48%        -48%     -48%   
+     -49%   -49%        -49%     -50%  -50%      -50%          -86%  
+        -87%       -87%          -87%        -87%    -88%     -88%  -
+88%   -89%
...
qr_const      4745450/s  762%    746%     347%        346%     345%   
+     340%   336%        336%     334%  333%      331%           16%  
+         16%        11%           11%         10%      2%       --   
+-0%    -1%
re_re         4748039/s  762%    747%     347%        346%     345%   
+     341%   336%        336%     335%  333%      331%           17%  
+         16%        11%           11%         10%      2%       0%   
+ --    -1%
re_str        4814042/s  774%    759%     353%        352%     352%   
+     347%   342%        342%     341%  339%      337%           18%  
+         18%        13%           12%         12%      4%       1%   
+ 1%     --