use XML::Rules; use Data::Dumper; my $xml = < XML my @rules = ( '^test' => sub { $_[1]->{name} eq 'Import Test Suite' }, ); my $xr = XML::Rules->new( style => 'filter', rules => \@rules, handlers => { Doctype => sub { my (undef, $name, $sysid) = @_; print qq(\n); }}, );