my ( $flag, $bytes, $message ) = 
   $frame =~ /^([01]{8})([01]{16})([01]*)\1$/;