$_ = reverse(join(',', reverse($_) =~ /.{1,3}/g));