$impressions += $value unless $value =~ m{n/a};

##</code><code>##

while (<FH>) {
  if (/Impressions:/) {
    print;
    $impressions += $1 if /(\d+)/;
  }
}