if($str =~ /<book-part book-part-type="chapter" id="chapter\d+">((?:(?!<\/?book-part book-part-type="chapter" id="chapter\d+">).)*)(?=<book-part book-part-type="chapter" id="chapter\d+">)/sgi)
	{
	$str .="<book-part>";
	}