$pattern = quotemeta( $pattern );
    m/$pattern/;

##</code><code>##

    m/\Q$pattern\E/;