$mac = join '', map { /^([0-9a-f])$/i ? "0$1" : $_ } split /\./, $addr;