Use either the quotemeta function:

    $pattern = quotemeta( $pattern );
    m/$pattern/;
[download]

or use the \Q and \E escape characters:

    m/\Q$pattern\E/;
[download]

They do exactly the same thing; just one is a function and the other works inside regex patterns.