s/[[:^xdigit:]]//g; $mac =  lc join ":", unpack "(A2)*", $_