<INFILE>
15:53:42.332 Dbg 10741 'App: 12' has put request id='834531' into queue
15:53:42.332 Dbg 10737 Forwarding request '834531' from 'App: 12' to './dbclient_oracle: 12.1'
15:53:43.908 Dbg 10749 Forwarding response '834531.1' from './dbclient_oracle: 12.1' to 'App: 12'
15:53:43.908 Dbg 10749 Forwarding response '834531.2' from './dbclient_oracle: 12.1' to 'App: 12'
15:53:43.908 Dbg 10739 Oracle: id='12.1' req='834531' SQL: SELECT crf_routing.CRF_RT_ACD1_QUEUE,crf_routing.CRF_RT_ACD1_SIZE,crf_ro'
 +0551  Executed SQL statement 'SELECT', start retrieve records...
 +0826  MSG_RETRIEVED2 status='DBM_SUCCESS'
 +0826  MSG_RETRIEVED status='DBM_NOMORE'

##</code><code>##

<REQIDS_FILE>
834531
834532
834533

##</code><code>##

 foreach $reqidline (<REQIDS_FILE>)
       {
       print "reqid - $reqidline\n";
               $reqidline =~ s/  */|/g;                                # Replace multiple spaces with pipe characters
               @reqidLineElements = split(/\|/,$reqidline);            # Split line elements into an array

               $count = 0 ;

      print "\tactual reqid - $reqidLineElements[0]\n";

               foreach $inline (<IN_FILE>)
               {
       print "\tinline - $inline\n";
                       $reqidLineElement = $reqidLineElements[0] ;
      print "\textracted reqid - $reqidLineElement\n";
                       # if ($inline=~m/$reqidLineElement/)
                       if (834531 == $reqidLineElement)
                       {
                               # Write the line from the log to output
                               $count = 0 ;
                               next ;
      print "\tMATCHED - $inline\n";
                       }

                       if ( ($inline =~ /$reqidLineElements[0]/ ) and ( $inline =~ /SELECT/) )
                       {
                               # Write current line to output
      print "\tSELECT - $inline\n";

                               # Initiate the reading of the next 3 lines from the log
                               $counting = "true" ;
                               $count = 0 ;
                               next ;
                       }

                       if ( $counting eq "true" )