sub replaceword {
    my $w = $_[0];
    my $repl = $bad_words{ lc( $w ) };
    $repl = ucfirst( $repl ) if ( $w =~ /^[A-Z]/ );
    return $repl;
}