#! /usr/bin/perl

while (<>) {
	s/^\s+//;               # remove leadings space
	s/\s+$//;               # remove trailing space
	s/,//g;                 # remove commas
	@fields = split /\s+/;  # split on whitespace
	for $num (@fields) {
		$sum += $num;
	}
}
print "$sum\n";