my ( $flag, $value ) = unpack 'A A2', $flag_entry;