$ perl -w -e '$_="Hello there\n"; s/t/\322/; print; s/^.*\322/yes/; print'
Hello ̉here
yeshere