Select Code to Download

  my @chunks = unpack '( (x4L X8Lx4/a L)> )*', $input;

  while ( my ($tag, $data, $crc) = splice(@chunks, 0, 3) ) {
    ...
  }