Select Code to Download

use strict;
use warnings;
...
  my $new_val = $str;
}

            Rate double single   none
double 1030928/s     --   -10%   -15%
single 1149425/s    11%     --    -6%
none   1219512/s    18%     6%     --