2011-04-09T11:12:22.049Z 121422 ABC <\doc> 2012-04-09T11:12:22.049Z 13427 CDE <\doc> 2010-04-09T11:12:22.049Z 89822 LKK <\doc> ##

##

$html =~ s//\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>/)
{
	$docuid[$i] = $1;
}
}
my $max = max @docuid;