$ptext =~ s/^(['"]?)(.*)\1$/\Q$2/s;