#!/usr/bin/perl
use strict;
use warnings;

use File::Find;
my $DIR = "/tmp/logs/";
find(\&queries, $DIR);

sub queries() {
    if ( -f and /^ftr001/ ) {
        print "----------------------------------------------\n";
        print "Searching File:", $_, "\n";
        print "----------------------------------------------\n";
        open(UNZIP, "gunzip -dc < $_ |") or die "gunzip: $!";
        open(RECORDS, "/tmp/logs/records.txt") or die "Could not open records file: $!";
        my @REC=<RECORDS>;
        chomp @REC;

        while ( <UNZIP> ) {
             my $EACH_LINE = $_;
             foreach my $REC_QUERY (@REC) {
                 print "Searching for current record: $REC_QUERY\n";
                 if ( $EACH_LINE =~ /\($REC_QUERY\)/ ) {
                     print "Querying for record: $REC_QUERY\n";
                     print "$EACH_LINE\n";
                 }
             }
         }
     }
 }
close(UNZIP);
close(RECORDS);