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