$string=~ s/(reg)ex/$1ister/g;