$foo = "_123_";
substr($foo, 1, 3) = "bar";
print "$foo\n";