substr($string, (length $string)/2, 0) = '-';

##</code><code>##

substr($string, 4, 0) = '-';

##</code><code>##

$string =~ s/(.{4})(?=.)/$1-/g;