....how about:
open B, "<banlist.txt" or die $!;
@ban_list = <B>;
close B;
my $domain = $in{Email_Field}; $domain =~ s/^\S+@(\S+\.\S+)$/$1/;
if (grep { /^\Q$domain\E$/ } @ban_list) {
some_error_here
}
Code:
my @ban_list = (); open B, "<banlist.txt" or die $!;
@ban_list = <B>;
close B;
my $domain = $in{Email_Field}; $domain =~ s/^\S+@(\S+\.\S+)$/$1/;
if (grep { /^\Q$domain\E$/ } @ban_list) {
some_error_here
}