#!/usr/bin/perl
#
# commify() — Insert commas into numbers.
# By J’raxis 270145.
#
# $Id: commify.pl,v 1.1 2004/12/14 12:20:43 jraxis Exp $



sub commify {
	local $_ = shift || '0';
	1 while( s/^(-?\d+)(\d{3})/$1,$2/ );
	return( $_ );
};



print( "$_: ", commify( $_ ), "\n" )
	for( @ARGV );