my $pretty_mac = ($mac =~ s/(^|-)([[:xdigit:]]+)/sprintf("%s%02s", $1, $2)/gre);