Question

Is there somewhere hidden in a (small) module a function, which does this for me:

my $var = 23654325432;
$var = reverse $var;
$var =~ s/\d{3}\K(?=\d+)/_/g;
$var = reverse $var;

I like Number::Format but it didn’t pass all tests on windows.

use Number::Format;
my $nf = new Number::Format( 
    -thousands_sep   => ',',
    -decimal_point   => '.',
);

my $formatted = $nf->format_number( 23142153 );

Answer 1

Look at perl5i. It has commify and group_digits methods.