print join(':', unpack 'a2a2a2a2a2a2', '00a0c801adc6')),"\n<BR>";

##</code><code>##

my $string = '00a0c801adc6';
print join(':', unpack('a2' x (length($string)/2), $string)),"\n<BR>";