in reply to Adding formatting to a string

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

[download]
or more generic 
$string =~ s/^(.{4})/$1\-/g;

[download]

In Section Seekers of Perl Wisdom