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++ if $_[1] eq 'Title' },
		End   => sub { $in_title--, say "GOT TITLE: $got_title" if $_[1] eq 'Title' },
		Char  => sub { $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