Select Code to Download

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

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