$num =~ s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1,/g; [download]
In reply to Re^2: Formatting a number by harryf in thread Formatting a number by harryf