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