my $blacklist_file = 'BlacklistWords.txt';
open(BLIST, "<$blacklist_file") or die("Can't open $blacklist_file for reading!!\n\n");
my @blacklist_words = <BLIST>;
close(BLIST);
chomp(@blacklist_words);
my $blacklist_regex = join"|" => map {"(?:$_)"} @blacklist_words; # Create a regex from blacklisted words
print "blacklist regex:\n$blacklist_regex\n\n"; exit;