use XML::Rules; my $parser = XML::Rules->new( style => 'filter', rules => { Resource => sub {}, } ); $parser->filter(\*DATA); __DATA__ dgfdg delete ffgdfgdddddddd