ABC|123|CHECK|1|
DEF|456|CHECK|1|
GHI|789|CHECK|1|
ABC|123|CHECK|1|
DEF|456|CHECK|1|
GHI|789|CHECK|1|
ABC|123|CHECK|1|
DEF|456|KCEHC|1|
GHI|789|KCEHC|1|
JKL|101|KCEHC|2|

##</code><code>##

#!/usr/bin/env perl

use warnings;
use strict;
use IO::Zlib;
 
my $fh = IO::Zlib->new('test.txt.gz', 'rb') or die "Zlib failed: $!";
my %count;
$count{$_}++ for map { (split /\|/)[2] } <$fh>;

foreach $key(%count){
$c = $count{$key};
$c1 = $count{$key};
}

##</code><code>##

$VAR1 = 'CHECK';
$VAR2 = 7;
$VAR3 = 'KCHEC';
$VAR4 = 4;

##</code><code>##

$c=$count{'CHECK'};
$c1=$count{'KCHEC'};