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