Speed in replacing a set of words in text in perl -

Question

I need to replace a set of words in a HTML and wrap them in a span like this (for every word):

s/word/word/gi

The text is about 100k long, and the lis