$html =~ s/<doc>/<doc>\n\n\n\n\n\n/g;
my (@lines) = split("\n\n\n\n\n", $html);
$cn = scalar(@lines);
for($i = 0; $i<$cn; $i++)
{

if ($lines[$i] =~ m/<str name="docuid">(.*?)<\/str>/)
{
	$docuid[$i] = $1;
}
}
my $max = max @docuid;