I really like XML::Twig. Not sure what you are trying to do exactly but a basic example would be:

use strict;
use warnings;
use XML::Twig;

my $t= XML::Twig->new(
    twig_handlers => {
        AMS => sub {
            print $_->{att}{Asset_Class}." has name ".$_->{att}{Asset_
+Name}."\n";
        }
    })->parsefile('test.xml');
[download]

Output:

package has name xxxxxxxxxxxxxxxxxxxxxxxx_package
title has name xxxxxxxxxxxxxxxxxxxxxxxx_title
poster has name xxxxxxxxxxxxxxxxxxxxxxxx_poster
movie has name xxxxxxxxxxxxxxxxxxxxxxxx_movie
[download]