local $_ = join ':', qw/0 0A 0C B B8 F/; # $mac
  my $part = qr/[0-9A-Z]{1,2}/;