sub my_filter {
  my $str = shift;
  my $TRUE = 1; my $FALSE = 0;   # FOR CLARITY

  return $FALSE if ($str =~ /reject_pattern_#1/);
  return $FALSE if ($str =~ /reject_pattern_#2/);

  return $TRUE if ($str =~ /accept_pattern_#1/);
  return $TRUE if ($str =~ /accept_pattern_#2/);

  return $FALSE;  // DOESN'T MATCH ANYTHING
}