scalar reverse join(',', (reverse '4123456789') =~ m/.{1,3}/g);