my @custom = (
 qr /postmaster/ ,
 qr /webmaster/
);

 ...

    foreach $x (@custom){
              if ($add =~ $x ){
                  $FH = "BADADDR";
                  writeaddr(); #address is bad
                  $pm->finish;
              }
          }