And if you don't like regular expressions you can also do this:
sub commify {
my $text = reverse $_[0];
my @digits = split('', $text);
my $ct = 0;
my $result = "";
foreach my $num (@digits)
{
if($ct == 3)
{
$result = "," . $result;
$ct = 0;
}
$result =...