Path: utzoo!attcan!uunet!bfmny0!tneff
From: tneff@bfmny0.UU.NET (Tom Neff)
Newsgroups: comp.lang.perl
Subject: Re: Inserting commas in numbers
Message-ID: <15219@bfmny0.UU.NET>
Date: 1 Mar 90 19:12:52 GMT
References: <2450@bnr-fos.UUCP> <1990Mar1.170610.4475@iwarp.intel.com>
Reply-To: tneff@bfmny0.UU.NET (Tom Neff)
Lines: 4

In article <1990Mar1.170610.4475@iwarp.intel.com> merlyn@iwarp.intel.com (Randal Schwartz) writes:
>	while (s/(.*)(\d)(\d\d\d)/$1$2,$3/) {;}

	'' while (s/(.*\d)(\d{3})/$1,$2/);