Select Code to Download

use Number::Format;
my $x = new Number::Format(-thousands_sep => ' ');
my $number = 1234567890;
print $x->format_number($number);

$ perl example.pl
1 234 567 890

my $number = 1234567890;
print format_number($number);
...
    $x = reverse $x;
    return $x;
}

1 234 567 890