Select Code to Download

<doc>
<date name="processingtime">2011-04-09T11:12:22.049Z</date>
...
<str name="docuid">89822</str>
<str name="title">LKK</str>
<\doc>

$html =~ s/<doc>/<doc>\n\n\n\n\n\n/g;
my (@lines) = split("\n\n\n\n\n", $html);
...
}
}
my $max = max @docuid;