$str =~ s{\\Q(.*?)\\E){quotemeta $1}ge;