Select Code to Download

($flag1, $bytecount, $mystery, $flag2) = $frame =~ m{
  ^
...
  ( [01]{8} )
  $
}x;

($flag1, $bytecount, $mystery) = unpack "A8 A16 A*", $frame;
$flag2 = substr($mystery, -8, 8, '');