in reply to Substitute Question

s/(old_word)/"new_word" ^ $1 ^ lc $1/egi

In Section Seekers of Perl Wisdom