Adding the input file digits together (Come on guys)

Hi 
I am want to add digits in In_digits together.
Print total to screen.
Could someone help?

Thanx

Bruce


In_digits:
1,200
2,400

#!/usr/bin/perl -w
open(INPUT, "In_digits") || die;
open(OUTPUT, ">Out_digits") || die;
while (<INPUT>) {
       if (/(\d{1})(\,)(\d{3})/) {     
                print OUTPUT;
        } else {
                print "warning: line of unexpected format ($_)\n";
        }
print
}
close(INPUT);
close(OUTPUT);

• Adding the input file digits together (Come on guys) by Bruce Ambraal
• RE: Adding the input file digits together (Come on guys) by Timothy Johnson