while (<>) {
chop; 
        if ($_ =~/(.*)/)
        {       
                $string = $1;
                $string =~ s/,000//g;
                $string =~ s/,//g; 
                @numbers= $string =~ /(\d+)/g;
                $f= $numbers[0];
                $s= $numbers[1];
                $isf9 = substr($f,-3);
                if ($isf9 =~/999/) {$f=$f + 1;}
                $iss9 = substr($s,-3);
                if ($iss9 =~/999/) {$s=$s + 1;}
                $f =~ s/000//g;
                $s =~ s/000//g;
                #print join (" ",@numbers);
     
                if ($f>0 && $s>0){ $fac = (($s-$f)/2)+$f;}
                if ($f>0 && $s<1){ $fac = $f;}
                        if ($fac>0)
                                {       
                                $_ =~ s/^/($fac) /;
                                $_ =~ s/$/;fac=$fac/;
                                }       
                }       
print "$_\n"; 
}