in reply to separating replacements

s{(\d\.)(\d)}{${1}0$2}

[download]

In Section Seekers of Perl Wisdom