pattern match screwed up!! ... Moreover none of the patter match is working.
Its easy for you to figure it out if you use Basic debugging checklist , brian's Guide to Solving Any Perl Problem
Also, its even easier to XML::LibXML with tools like xpather.pl/htmltreexpather.pl which can give you paths to start with, and all the links here Re: Retrieve select information from HTML, they're examples(for tree-xpath and others)/walkthroughs/tutorials ...
You know whats even easier? [metacpan://junit] [cpan://junit] -> junit junit -> bupkis no dedicated junit parsers on cpan :)