How do I handle special characters in a Perl regex?

Question

I\'m using a Perl program to extract text from a file. I have an array of strings which I use as delimiters for the text, e.g:

$pat = $arr[1] . \'(.*?)\' . $         


        

Answer 1

Use quotemeta:

$pat = quotemeta($arr[1]) . '(.*?)' . quotemeta($arr[2]);
if ($src =~ $pat) 
    print $1;