<NITPICK mode="laugh">

If sprintf() would change 1453980 to 1,245,980 I would tend to disagree to the implementation of sprintf().

</NITPICK>

Maybe the following might help you (about from perl-cookbook):

sub Commify {
  my $text = reverse $_[0];
  $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
  return scalar reverse $text;
} # Commify
[download]

Best regards,
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"

sprintf() won't do it, but you may want to take a look at perldoc perllocale to get part of the way there.

I think the reason for this is that in some circumstances you use a comma as a thousand separator, while in other circumstances the single apostrophe is used. Yes, even the single dot may be used for this. (Together with a comma to indicate the beginning of fractions.)

So implementing this in sprintf() might become rather messy. Implementing it as your own sub() means that you can do it the way you need in your particular situation.

And, as already mentioned above, there are many examples available of how to do it. If you do not yet have access to The Perl Cookbook then I advice you to get it. It's very useful.