$commas=~ s/^(-?\d+)(\d{3})/$1,$2/;