#!/usr/bin/perl -w
use strict;

while(<>){
	my $n=0;
	s{(^|[ /])( *)(\d{4,})}{
		my($x,$s,$d)=($1,$2,$3);
		my $l=length($d);
		my $c=int(($l-1)/3);

		my $a=length($s)-$n; $a=0 if $a<0;
		   $n=$c-$a;         $n=0 if $n<0;
		   $s=$a-$c;         $s=0 if $s<0;

		$s=' 'x$s;

		$a=$l%3;
		if($a==0){
			$a="";
		}elsif($a==1){
			($d=~s/(.)//);
			$a="$1,";
		}else{
			($d=~s/(..)//);
			$a="$1,";
		}
		$d=~s/(...)(?=.)/$1,/g;
		"$x$s$a$d"
	}eg;
	print;
}