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