my $blacklist_regex = join "|" => map { chomp; "(?:$_)"} <BLIST>;