my $mac = "0:0A:0C:B:B8:F";
my @mac = split /:/, $mac;
$mac = join ':', map {sprintf '%02X', hex $_};