Select Code to Download

use Benchmark qw/cmpthese/;
my $append = 'B' x 50;
cmpthese (100, {
...
substr 16.5/s     --   -35%   -37%
dot    25.5/s    55%     --    -2%
dot_eq 26.0/s    58%     2%     --

use Benchmark qw/cmpthese/;
my $append = 'B' x 256;
cmpthese (100, {
...
substr 6.99/s     --   -35%   -49%
dot_eq 10.7/s    53%     --   -21%
dot    13.6/s    95%    27%     --