my $count = 0;
for (@array) {
    #  I've had no difficulty counting substitutions on individual line replacements
    # my $individual_line_replacement_count = ...;
    $count += $individual_line_replacement_count;
}