$string =~ s/DF/D-F/g;

##</code><code>##

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