print $dbh->quote("foo\"%!bar");
print quotemeta("foo\"%!bar");