while (<FH> ) {
       chomp;
       if ( /Impressions:/ ) {
       my($text, $value) = split(/:/, $_);
       print "Impressions: $value";
       print "\n"
       $value += 0;                 # turn $value into a number
       $impressions += $value;
    }