my @words;
	my $filename="terms.txt";
	if (open my $FH, "<:encoding(UTF-8)", $filename) {
		while (my $line = <$FH>) {
			chomp $line;
			push @words, $line;
		}
		close $FH;
	} 
	my $wordsRX = join "|", map quotemeta, @commonwords;