(def escape-perl-string (s)
  (ac-scheme:regexp-replace* "[\\\\']" s "\\\\&"))

(def strperl (s)
  (if (ac-scheme:bytes? s)
       ((ac-scheme bytes-append) #"'" (escape-perl-string s) #"'")
       (string                   "'"  (escape-perl-string s) "'")))