Select Code to Download

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