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