>>94
先読み否定。色々仲間があるので詳細はperlre参照。
s/s(?!tring)/z/g;