What's the problem with XML::LibXML? I don't know anything about the PM XML, but you should be able to do just about anything with XML::LibXML

   ## untested code
   use strict;
   use XML::LibXML;
   my $parser = XML::LibXML->new();

   my $doc = $parser->parse_file( 'http://www.perlmonks.org/index.pl?n
+ode_id=30175' );

   ## find all "Discussion" section
   foreach my $disc_node ( $doc->findnodes( '/NEWESTNODES/NODE[ @nodet
+ype="monkdiscuss" ]' ) ) {
      ## do something with it...
   }
[download]