#! /usr/bin/perl

use strict;
use warnings;

BEGIN {
   package MySAXHandler;
   use parent 'XML::SAX::Base';
   sub start_element { print "element $_[1]{Name}\n"; }
   sub end_element   { print "element end\n"; }
   sub characters    { print "text $_[1]{Data}\n"; }
}

use XML::SAX::PurePerl;

my $parser = XML::SAX::PurePerl->new(
    Handler => MySAXHandler->new(),
);

$parser->parse_string("<?xml version=\"1.0\"?>
<!DOCTYPE root
[
	<!ENTITY lt \"<\">
	<!ENTITY gt \">\">

]>

<root>&lt;SOMETHING&gt;</root>");