my $exceptions = qr/_ALPHA|#ALPHA|XL5 ALPHA/;
my $keepers = qr/ALPHA|BETA/;
print "Matched ($srch)!\n" if grep /$keepers/, split $exceptions, $srch;