my $out = substr(reverse(join("", map { $_ eq "" ? '' : $_ . ',' } split/(\d{3})/, reverse($number))), 1);