$ptext =~ s/^(['"]?)(.*)\1$/\Q$2/s; [download]
In reply to Re: Regexp and metacharacters by jwkrahn in thread Regexp and metacharacters by Largins