-$board[22] = chr(ord($board[22]) | 0x3);
-printf("byte 22: 0x%x\n", ord($board[22]));
-my $boarddesc_new = encode_base64(join('',@board));
-chomp($boarddesc_new);
-print "BOARD_DESCRIPTION: ${boarddesc64} -> ${boarddesc_new}\n";
-#AQFQAAAAAAAAAAAAiAKsAdAFAABqOgAABgABAAAAAAA=