my $add = 0;my $del = 0;foreach (@output){ if(/^a\s+\S+\s+(\d+)$/){ $add += $1; } elsif (/^d\s+\S+\s+(\d+)$/){ $del += $1; }}$total_changed = $add + $del;print "$add + $del = $total_changed\n";