Select Code to Download

   if ($char_keywords > 950)
   {
...
   {
       print qq(<td>Keywords: </td>);
   }

foreach (keys %one_word_keywords)
...
      print qq("$key" was repeated $value times.  Max is 6<br><br>);
   }
}