$sth = $dbh->prepare (qq{ SELECT * FROM `forbidden_usernames` WHERE `f_user` LIKE ? });
$sth->execute("$str");
my $rows = $sth->rows;
$sth->finish();

if ($rows) {
	return("bad");
}