my $x = int (length($msg) / 106);
unpack("x2 (V V V V C x25 v v v v x2 C x5 C x11 C x3 Z24 C C C C C C C)$x", $msg )