How about this?

my $string = "ABCDEFGH";
$string = sprintf("%.4s-%s", $string,substr($string,4,4));
[download]

Awkward, maybe, but I have tried it and it works.