Help for this page
die "not quoted?" unless $ptext =~ m/\A(["'])(.*)\1\z/s; $praw = $2; $praw =~ s/\\(.)/$1/sg
$pregexp = qr/\Q$praw\E/;