## BEGIN CONFIGURE
my @KEEP = qw(a p img br);
## END CONFIGURE
...
...
# just before the business loop:
my %keep; @keep{@KEEP} = ();
...
... "it's good" if exists $keep{$1}; # or whatever