#!/usr/local/bin/perl -w
use strict;
use Benchmark;

my $s = '00a0c801adc6';

timethese(100000,{
	particle => sub {
		my $str = $s;
		$str =~ s/([\w]{2})(?!$)/$1:/gio;
	},

	chipmunk => sub {
		my $str = $s;
		$str = join(':', $str =~ /../g);
	},

	petral => sub {
		my $str = $s;
		$str = join(':', split /(?=(?:..)+$)/,$str);
	},

	robot1 => sub {
		my $str = $s;
		$str = join(':', unpack 'a2a2a2a2a2a2', $str);
	},

	robot2 => sub {
		my $str = $s;
		$str = join(':', unpack('a2' x (length($str)/2), $str));
	},

});