$mesg_body = unpack "A*", $mesg_body;