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


##</code><code>##

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


##</code><code>##

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


##</code><code>##

    push @Data, [@entry];


##</code><code>##

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