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