# Any word matched

while (<$words_fh>) {
   my $re = join '|',
            map quotemeta,
            split;
    
   if ( $teststring =~ /($re)/ ) {
      print("$teststring contains $1\n");
   }
}