Когда то писал на 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 
