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

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

open(RECORDS, "/tmp/logs/records.txt") or die "Could not open records file: $!";
local $/ = undef; # Ignoring binmode as its a text file
my $RE = join '|', <RECORDS>;
close RECORDS;

sub queries() {
    return unless -f and /^ftr001/;
    print "----------------------------------------------\n";
    print "Searching File:", $_, "\n";
    print "----------------------------------------------\n";
    open(UNZIP, "gunzip -dc < $_ |") or die "gunzip: $!";

    while ( <UNZIP> ) {
        next unless /$RE/;
        print $_;
    }
        close UNZIP;
}