substr( $buffer, $n, $m ) =~ s[this][that]g;