% perl -e ' while (<>) { if (/: /) {  $c += (split /: /)[0]; }  } print "SUM.$ARGV =$c\n"' tmp_*