#!/usr/bin/perl 
 
use File::Find; 
 
$directory = $ARGV[0]; 
 
find(\&wanted, $directory); 
 
sub wanted { 
        if (-f $_) { 
           system("zgrep -l -m 1 -i 'string' $_"); 
          } 
}

my $output_of_command=qx(zgrep ...); 
if($? == 0) { 
  copy(....) 
} else { 
  # Error handling 
}

#!/usr/local/bin/perl -w 
 
use File::Find; 
use File::Copy; 
 
$directory = $ARGV[0]; 
 
find(\&wanted, $directory); 
 
 
sub wanted { 
        if (-f $_) { 
          qx("zgrep -H -l -m 1 -i 'string' $_"); 
            if ($? == 0) { 
              copy("$File::Find::name", "/file/path/$_") or die "Copy failed: $!"; 
            } 
        } 
}

#!/usr/local/bin/perl 
 
use warnings; 
use strict; 
use File::Find; 
use File::Copy; 
 
@ARGV or die "useage: $0 [directory]\n"; 
 
my $directory = $ARGV[0];  
-d $directory or die "$directory does not exist\n"; 
 
my $dest_path = '/file/path'; 
-d $dest_path or die "$dest_path does not exist\n"; 
 
find(\&wanted, $directory); 
 
 
sub wanted { 
    -f or return; 
     
    qx("zgrep -H -l -m 1 -i 'string' $_"); 
 
    if ($? == 0) {  
        copy($File::Find::name, "$dest_path/$_") 
          or die "Failed to copy '$File::Find::name' to '$dest_path/$_' <$!>";  
    }  
}