Select Code to Download

use strict;

...
print STDOUT "Out: " . reverse($out) . "\n";

exit 0;

In: 1234567890
Reversed: 0987654321
Array: '098' - '' - '765' - '' - '432' - '1'
Out: 1234,567,890

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