my $pt_string8 = unpack( "B*", pack( "N", 0x0000001E ) );
my $tag_bin    = unpack( "B*", pack( "N", $tag->Value() ) );

my $test = $tag_bin | $pt_string8;
$test = oct("0b$test");

$self->{message}->{Fields}[$test] = $value;