Could you please let me know what is wrong step I am doing?

You're using the qr operator as if it were the m operator (match), but they're not the same. See Regexp Quote-Like Operators in perlop

And you only quotemeta arbitrary text you wish to match verbatim, not regex patterns.

You can build an efficient regex pattern out of a list of arbitrary text with Regex::PreSuf.