Select Code to Download

use Benchmark qw( cmpthese );

...
   jwkrahn1 => 'my $mac = $data; $mac =~ s/([^:]+)/ sprintf "%02s", $1
+ /eg;                   $mac;',
   jwkrahn2 => 'my $mac = $data; $mac = join ":", map sprintf( "%02s",
+ $_ ), split /:/, $mac; $mac;',
});

            Rate ike_orig jwkrahn1   skeeve jwkrahn2 ike_fast
ike_orig 37908/s       --      -3%     -29%     -31%     -43%
...
skeeve   53318/s      41%      37%       --      -3%     -20%
jwkrahn2 54879/s      45%      41%       3%       --     -18%
ike_fast 66551/s      76%      71%      25%      21%       --