Select Code to Download

use Benchmark qw( cmpthese );

 cmpthese( @ARGV ? $ARGV[0] : -3, {
...
         $string =~ s/\+/ /g;
     },
 });

         Rate  Atr  Btr   Bs   As
Atr  696801/s   --  -2% -13% -45%
Btr  711990/s   2%   -- -11% -44%
Bs   800289/s  15%  12%   -- -37%
As  1260797/s  81%  77%  58%   --