if ($line =~ /word1|word2|word3/) { return 1; }
 else { return 0; }