$d =~ s/(\d\d)(?=\d)/$1-/g;