sidburn@sid:~$ perl6 -e '1234567890.comb.reverse.join.comb(/<digit>**{1..3}/).join(".").comb.reverse.join.say'
1.234.567.890