$d = reverse($d);
$d =~ s/(?<=\d)(?=(\d\d)+$)/-/g;
$d = reverse($d);