xmlsplit |
perl -ne '
	if (m{^<[!]}) {
	}
	elsif (m{^</}) {
		pop @p;
	}
	elsif (m{^<(\S+?)(\s|>)}) {
		push @p, $1;
		if ($c = $count{"@p"}++) {
			$p[-1].=".$c";
		}
		while (m{(\S+)="(.*?)"}g) {
			print "@p .$1:\t$2\n";
		}
		if (m{^<\?|/>\s*$}) {
			pop @p;
		}
	}
	else {
		print "@p:\t$_";
	}
'