Select Code to Download

    if ($Conf[7] =~ /NO/i) {
...
    elsif($Conf[7] =~ /YES/i) {

    $attrID =~ s/\s*//g;
    $port =~ s/\s*//g;

    $val = join("", $val, $port);

    push @Data, [@entry];

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';