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

##</code><code>##

'foo%"!bar'
foo\"\%\!bar