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

$_ = '00a0c801adc6';

s/([\w]{2})(?!$)/$1:/gio, "\n<BR>";

print "$_\n<BR>";