#!/usr/bin/perl 
use warnings; 
use strict; 
use 5.010; 
 
my $rd7_activeconnhighcount; 
my $fgrlog_activeconnhighcount; 
 
open (LOG, "<test.log") or die "can't open log file: $!\n"; 
my $c = 1; 
while (<LOG>) { 
chomp; 
 
 if ($c == 1) { 
    $rd7_activeconnhighcount = $1 if /(ActiveConnectionsHighCount?)/ 
     } else { 
      $fgrlog_activeconnhighcount = $1 if /(ActiveConnectionsHighCount?)/ 
    } 
 
 
    if (/JDBC Runtimes fgrlog/) { 
    ++$c} 
     
    } 
  
  
 say $rd7_activeconnhighcount; 
  
say $fgrlog_activeconnhighcount;