% perl -ne '$sum += /pattern/}{print $sum,$/' file1 file2 file3