#!/usr/local/bin/perl

use strict;
use warnings;
use Parallel::ForkManager;

my $pm = new Parallel::ForkManager(24);

my $dir = '/data/logs/*.log.gz';
my @files = sort(glob "$dir");
my $pattern = "some_string";

$pm->set_waitpid_blocking_sleep(0);

for my $file( @files ) {
    $pm->start and next;
    open( my $fh, "-|", "/bin/zcat", $file ) or die "open error: $!\n";
    while ( my $line = <$fh> ) {
        if ( $line =~ /$pattern/ ) {
            my @matches = $line =~ /".*?"|\S+/g;
            print "$matches[0],$matches[1],$matches[3],$matches[4]\n";
        }
    }
    $pm->finish;
}

$pm->wait_all_children;