Maybe I am over simplifying this, but all those modules and all that code looks a little overkill, if the HTML file mentioned is the only file. Something quick'n'dirty like this would do too (to start with, of course), right?

$\="\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>";
[download]