use strict; use warnings; use XML::LibXML qw( ); my $xhtml = <<'__EOI__'; Test Test __EOI__ my $parser = XML::LibXML->new( ext_ent_handler => sub { use Data::Dumper; local $Data::Dumper::Useqq = 1; print(Dumper(\@_)); return ""; }, ); $parser->parse_string($xhtml);