sub replaceword
{
   my $w = $_[0];
   my $repl = $bad_words{lc($w)};
   if (lc($w) eq $w) {
      lc($repl);
   } elsif (ucfirst($w) eq $w) {
      ucfirst($repl);
   } else {
      uc($repl);
   }
}