while (<INPUT>) {
	if (m#<level1 id=\"([^"]*)\"#) {
		$id=$1;
		print;
	}
	elsif (m#(\s*)<level2>#) {
		print "$1<level2 id=\"$id\">\n";
	}
	else {
		print;
	}
}