$regexp =~ s/\\Q(.*?)\\E/quotemeta($1)/eg;