My earlier post did not appear properly.

sub commify {
    (my $number = shift) =~ s/\G([+|-]?)(\d{1,3})(?=(?:\d\d\d)+(?:\.|$
+))/$1$2,/g;
    return $number;
}
[download]

Manikanthan Velayutham

programmed to think BIG