if($line =~ /(<book-part[^>]*>)((?:(?!<book-part[^>]*>).)*)(?=<book-part[^>]*>|$)/sgi)
{

 $line .="</book-part>\n";
}