my $string = "ABCDEFGH";
my @string = split //, $string;
$final = (join "", @string[0..3])."-".(join "", @string[4..7]);
print $final; # if my code is right, this is "ABCD-EFGH"