Try XML::RSS. It uses XML::Parser.

Example from the docs:

    my $rss = new XML::RSS;
    $rss->parsefile("fm.rdf");

    foreach my $item (@{$rss->{'items'}}) {
        print "title: $item->{'title'}\n";
        print "link: $item->{'link'}\n\n";
    }
[download]