$serach = "any foo and bar not frob"; #your search-string
open STOP, stopwords.txt;
while (<STOP>) {
  chomp;
  $search=~/$_//g;
}
close STOP;