#english with comma
my $number_readable = () = $number =~ s/(d{1,3})(?=(d{3})+($))/$1,/g;
#german with dot
my $number_readable = () = $number =~ s/(d{1,3})(?=(d{3})+($))/$1./g;
Perl add thousand separators on string
by admin_import on 02/05/2010
by admin_import on 02/05/2010
#english with comma
my $number_readable = () = $number =~ s/(d{1,3})(?=(d{3})+($))/$1,/g;
#german with dot
my $number_readable = () = $number =~ s/(d{1,3})(?=(d{3})+($))/$1./g;