my $usernameescaped = $username; $usernameescaped =~ s/([\%_])/\\$1/g; my $sth = $dbh->prepare("SELECT uid FROM user_accounts WHERE username like ? escape '\\'"); $sth->execute($usernameescaped); my ($uid) = $sth->fetchrow_array; #### ------------ :Wq Not an editor command: Wq