y/./,/;s/\d(?=(\d\d\d)+(,|\Z))/$&./g; # 37, counting the semicolon