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