my $pretty_mac = join('-', map { sprintf('%02x', hex($_)) } split(/-/, $mac))