can't find how to do that

I use somethig like this to change one word in another
find -type f -name '*.*' -exec perl -pi -e 's/word/anotherword/;' {} \;
but now I need something difrent and don't know how to do it
I need find strings match pattern[*] where * is wahtever and change into
['*']