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