This should also work, though I did like the previous solution of using reverse.

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

Update: Doh! Already posted above. Guess I should refresh more often!