Try XML::Parser in 'subs' mode. (i.e) Style=>'Subs'

Then use a subroutine named 'entries' which will automatically called whenever 'entries' start tag event occurs.

my $p1 = new XML::Parser(Style => 'Subs');
my $tree = $p1->parse($content);
#####called when entries start tag occurs

sub entries{

#########what ever u need############

}
######### called when entries end tag occurs

sub entries_{

}
[download]