$inputstring=~s/\Q$t/$r/;