$mac = sprintf "%02x" x 6, map hex, split /\./, $mac;