Inserir Caracter "-" Numa String

[mestre fyoda]

existe alguma função que insira o caracter "-" numa determinada posição sem perder nenhum caracter da string , tem como ?

[CSML sistemas]

pode ser um algoritmo?

Digamos que sua string está na variável $string_original e que a posição a inserir o "-" está na variável $eh_aqui.

$antes = substr($string, 0, $eh_aqui);

$depois = substr($string, $eh_aqui + 1);

$string = $antes . "-" . $depois;

???

[mestre fyoda]

perfeito