# File lib/kwartz/binding/perl.rb, line 204
    def translate_string(str)
      return if str.nil? || str.empty?
      #str.gsub!(/['\\]/, '\\\\\&')
      #@sb << "_buf << '#{str}'; "
      str.gsub!(/[`\\]/, '\\\\\&')
      @sb << "push(@_buf, q`#{str}`); "
      #if str[-1] == ?\n
      #  str.chomp!
      #  @sb << "push(@_buf, q`#{str}`, #{@nl.inspect});" << @nl
      #else
      #  @sb << "push(@_buf, q`#{str}`); "
      #end
    end