my @parts = split /:/ , $mac;
foreach (@parts) { if (length == 1) { $_ = "0" . $_; } }
$mac = join ":" , @parts;