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

##</code><code>##

  my @parts = /^($part):($part):($part):($part):($part):($part)$/;

##</code><code>##

  my @parts = /
    ^
    (?:
      ($part)
      :
    ){5}
    ($part)
    $
  /x;