$sth=$dbh->prepare(qq(select * from table where lower(last_name)=?)) or die "$dbh->errstr"; my ($new_last_name = $last_name) =~ tr/[A-Z]/[a-z]/; $sth->execute($new_last_name) or die "$dbh->errstr";