die "not quoted?"
  unless $ptext =~ m/\A(["'])(.*)\1\z/s;
$praw = $2;
$praw =~ s/\\(.)/$1/sg

##</code><code>##

$pregexp = qr/\Q$praw\E/;