Давно не программировал на перле...
В общем трабл такой:
if($name ne ""){$name=~s/\\"/\\\\\\"/;}
if($book_info ne ""){$book_info=~s/\\"/\\\\\\"/;}
if($author ne ""){$author=~s/\\"/\\\\\\"/;}
if($sale_notes ne ""){$sale_notes=~s/\\"/\\\\\\"/;}
В чём я не прав?
И есть альтернатива? аля функция в пхп addslashes