16:56 >perl -wE "say s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1,/gr for @ARGV;" 1234567 987654321098765 1,234,567 987,654,321,098,765 16:56 >