$\="\n";
print "<Products>";

open FH, "<prodnr.html";
while(<FH>) {
   if($_ =~ /HREF="(.*pdf)".*(\d{7}) ([^<]+)/) {
     print "<Product>";
     print "\t<Name>$3</Name>";
     print "\t<PDF>$1</PDF>";
     print "\t<Number>$2</Number>";
     print "</Product>";
   }
}
close FH;

print "</Products>";