perl6 -e '1234567890.reverse.comb(/<digit>**{1..3}/).join(".").reverse.say'