If you could please include runnable code, something reusable, that shows original input, expected output, actual output, ex

my $input = pack 'H*', "your binary input unpacked with 'H*'";
my ($messageType,$ProtoOrVer,$MsgLen,$MsgSeqNum,$ClOrdID,$OnBehalfOfCo
+mpID,$rest) =unpack "A A n N N2 A*",$sourceMsg};

print ...
print "expected output\n";
[download]

thanks