Select Code to Download

use strict;
use warnings;
...
        C_Style => sub { $c_style_string->()}
    }
)

           Rate C_Style  regex1  regex2      FH   split substr1 substr
+2  unpack
C_Style  5598/s      --    -72%    -72%    -78%    -79%    -80%    -80
+%    -83%
...
substr1 27355/s    389%     39%     37%      5%      1%      --     -4
+%    -16%
substr2 28523/s    409%     45%     43%     10%      5%      4%      -
+-    -12%
unpack  32428/s    479%     65%     62%     25%     19%     19%     14
+%      --