Когда то писал на Perl вот такой код:
sub Dmoney()
{
my $t=reverse $_[0];
$t =~ s/(\\d\\d\\d)(?=\\d)(?!\\d*\\.)/$1,/g;
$t = "$t\\$";
return scalar reverse $t;
}
т.е. отсылая скажем в функцию 2378904 получал $2.378.904
Не подскажете как реализовать аналог на PHP