Select Code to Download

use strict;
use Benchmark;
...
} else {
   print "Missing or invalid parameter to single1.p\n\n";
}

       rate     c     e     a     b     d
c  521648/s    --   -4%  -61%  -68%  -68%
...
a 1335220/s  156%  146%    --  -17%  -19%
b 1614068/s  209%  197%   21%    --   -2%
d 1639269/s  214%  202%   23%    2%    --

use strict;
use Benchmark qw(cmpthese);
...
   d => '$_ = substr($_, 0, $-[0]) if /#/',
   e => 'if ((my $p = index($_, "#")) > -1) { substr($_, $p, -1, "") }
+'
});

       Rate     c     e     a     d     b
c  518715/s    --   -2%  -62%  -67%  -68%
...
a 1365411/s  168%  151%    --  -15%  -15%
d 1599654/s  214%  194%   17%    --   -1%
b 1608742/s  216%  195%   18%    1%    --