my $filename = "file.gz"; my $reg1 = "Joe Sinclair"; my $reg2 = "Bill Halburg"; open INFILE, 'zcat $filename |' or print "ERROR - Could not open $filename"; while($line = ) { print $line if($line =~ /$reg1/); print $line if($line =~ /$reg2/); } close(INFILE);