sub detect_profanity {
    my $str = shift;
    my $sth = $dbh->prepare (qq{ SELECT * FROM `forbidden_usernames` W
+HERE `f_user` REGEXP ? });
    $sth->execute($str);
    my $row = $sth->fetchrow_hashref();
    $sth->finish();

    return "bad" if $row;
}
[download]