my $CkDiscardCommonwords=1;#check if use stopwords or not
my $term="word";
my $commonwordsRX = loadCommonWords ();
if ($CkDiscardCommonwords eq 1){
	if ($term =~ /^(?:$commonwordsRX)$/){
		return (0);
	}
}

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