then this:

($type eq 'string') && do {
                        $value = encode_string($value);
                        push @enoid, [$oid,$value];
                        next;
                };
[download]

should probably be this:

($type eq 'string') && do {
                        $value = encode_string(
                           pack "C*" map {hex} split /\s/, $value
                        );
                        push @enoid, [$oid,$value];
                        next;
                };
[download]

because you likely want to encode "\xAA\xBB\xCC\xDD" and not "AA BB CC DD".