Select Code to Download

my @mac_add = qw/28 8a 1c 59 cc 85/;
my (@list,@parts);
...
  push @parts, join '', splice @list,0,2
}
my $mac_R5 = join '.',@parts;