my ($tag, $data, $crc) = unpack q( (x4L X8Lx4/a* L)> ), $input;