$message =~ s/badword2|badword3|badword/bleep/ig;


##</code><code>##

badword2|badword3|badword

##</code><code>##

badword|badword2|badword3

##</code><code>##

use CGI qw/:standard/;

##</code><code>##

my $q = new CGI; # and all the $q-> method calling

##</code><code>##

print 
    header,
    start_html,
    p(
        {-align => center},
        "Thanks for signing my guestbook, your message has been posted! $name!",
    ),
    "Name: $name", br, "Email: $mail", br, "Message: $message", 
    # ok, line above is a *bit* CGI-obsessive
    end_html;