($messageType,$ProtoOrVer,$MsgLen,$MsgSeqNum,$ClOrdID,$OnBehalfOfCompID,$rest) =unpack "A A n N N2 A*",$sourceMsg};