$mac =~ s/([0-9A-F]+|:)/$1 eq ':' ? '.' : hex($1)/ge;