my $fixed = $ptext;
$fixed =~ s/^['"]//;
$fixed =~ s/['"]\z//;
$fixed = quotemeta($fixed);

##</code><code>##

my $fixed = $ptext;
$fixed =~ s/^['"]//;
$fixed =~ s/['"]\z//;
$fixed =~ s/([\\'"...])/\\$1/g;