+
+ my $match = 0;
+ foreach my $tag (@ignore_tags) {
+ next unless $text =~ /\b\Q$tag\E\b/i;
+ $match = 1;
+ $text = "(ignored: $tag) $text" if &debug;
+ last;
+ }
+ next if not &debug and $match;
+
+ foreach my $tag (@strip_tags) {
+ $text =~ s/\b\Q$tag\E\b//gi;
+ }
+