$mac =~ s/-/:/g;
#to
$mac =~ s/[^0-9A-F]+/:/g;