foreach $WORD in (@WORD_LIST) {
   $LINE =~ s/($WORD)/<font color=red><b><i>$1<\/i><\/b><\/font>/gi  && $contains_word++;
}