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