my $parser_remove = XML::Rules->new( rules => [ _default => 'raw', line => sub { my ($tag, $attrs, $context, $parents) = @_; if ($attrs->{_content} =~ /\s+NOT\s+/) { $parents->[-2]{_remove} = 1; # skip the and set the attribute directly in
} return [$tag => $attrs]; }, address => sub { return $_[0] => $_[1] unless ($_[1]->{_remove}); } ], style => 'filter', );