Select Code to Download

    $sth = $dbh->prepare (qq{ SELECT * FROM `forbidden_usernames` WHER
+E `f_user` LIKE ? });
    $sth->execute("$str");
...
if ($str =~ /$row->{f_user}/i) {
return("bad");
}