Re: Integer to Money format

[happy.barney]

my $n = '4123456789';
$n =~ s/(?<= \d )(?= (?:\d{2})* \d{3} $ )/,/gx;

[vinoth.ree]

Thank you very much!