$d = "123456789";
$d =~ s/(?<=\d)(?=(\d\d)+$)/-/g;
print  "$d";