#!/usr/bin/perl -w
use strict;
use warnings;
my ($in_game, $info, $keys, $k, $v);
while ($_ = <STDIN>) {
	chomp; s/\r//g;
	if (m{^\s*</game>\s*$}) {
		print "$_: $info->{$_}\n" for @$keys;
		print "\n";
		$in_game = 0;
		undef $info;
		undef $keys;
	}
	if ($in_game) {
		my ($k, $v) = m{^\s*<(\w+)>(.*?)</\w+>$};
		if (!$k) {
			die "bad line: $_\n";
		}
		$v =~ s/^<!\[CDATA\[//;
		$v =~ s/\s*\]\]>$//;
		$info->{$k} = $v;
		push @$keys, $k;
	}
	if (m{^\s*<game>\s*$}) {
		$in_game = 1;
		$info = {};
		$keys = [];
	}
}