Perl regexp как экранировать только некоторые символы

У меня есть строка $regexp_as_string

Теперь я хочу "преобразовать" ее в regex / использовать как regexp

if ($text_to_search =~ $regexp_as_string)
{
...
}

Теперь есть символы типа "." и я хочу автоматически экранировать их - \Q и \E должны сделать это

 if ($text_to_search =~ /\Q$regexp_as_string\E/)
    {
    ...
    }

Есть ли способ указать список символов, которые должны быть автоматически экранированы? Потому что в данный момент этот способ автоматически экранирует, например, "|", но я хочу сохранить это.