おまいがしたいのはこれではないのか？
$sql =~ tr/\'%,/\\\'\%\,/;

それと安易にエスケープするな\Q使え