use 5.010;
use strict;
use warnings;

use XML::Parser;

my (@got_title, $in_title);
my $parser = XML::Parser->new(
	Handlers => {
		Start => sub { $in_title++, @got_title = () if $_[1] eq 'Title' },
		End   => sub { $in_title--, say "GOT TITLE: @got_title" if $_[1] eq 'Title';  },
		Char  => sub { push @got_title, $_[1] if $in_title },
	},
);

$parser->parse(<<'XML');
<Document>
	<Title>Company A&amp;B Information</Title>
	<Abstract>Foo</Abstract>
	<Title>Company X&amp;Y Information</Title>
	<Abstract>Bar</Abstract>
</Document>
XML