substr($s,1,2,`foo`)

##</code><code>##

$s = substr($s,0,1) . `foo` . substr($s,3);