in reply to How to prevent metacharacter interpolation

Use the quotemeta function: 
quotemeta($pattern);
s/$pattern/$string/;

[download]

Originally posted as a Categorized Answer.

In Section Seekers of Perl Wisdom