my $fixed = $ptext
   =~ s/^\"//r
   =~ s/\"$//r
   =~ s/^\'//r
   =~ s/\'$//r
   =~ s/\'/\\\'/gr
   =~ s/\"/\\\"/gr
   =~ s/\{/\\\{/gr;