$mac =~ s/(..)(:)?/hex($1).($2?'.':'')/ge;