Select Code to Download

#!/usr/bin/perl 
use strict;
...
    class_b  => sub {$line =~          /  a     .{1,10}   (?<=b[!]) /x
+},
};

                    Rate class_b  class class_back_look literal_look l
+iteral class_back literal_exp class_exp
class_b           2172/s      --   -53%            -72%         -75%  
+ -100%      -100%       -100%     -100%
class             4651/s    114%     --            -40%         -46%  
+  -99%       -99%        -99%      -99%
...
literal_exp     722209/s  33145% 15426%           9149%        8242%  
+   13%         2%          --       -2%
class_exp       733546/s  33667% 15670%           9294%        8373%  
+   15%         4%          2%        --