Select Code to Download

gunzip -c $file|cut -f3,4 -d'|' |sort|uniq -c

 2
11 CHECK|KCEHC

ABC|123|CHECK|KCEHC|
DEF|456|CHECK|KCEHC|
...
ABC|123|CHECK|KCEHC|
DEF|456|CHECK|KCEHC|
GHI|789|CHECK|KCEHC|

$fh = IO::Zlib->new( "$file", 'rb' ) or die "Zlib failed: $!";
$count{$_}++ for map { ( split /\|/ )[3,4] } <$fh>;
print Dumper(%count);

$VAR1 = '';
$VAR2 = 1;
...
$VAR5 = 'KCEHC';
$VAR6 = 11;
$VAR7 = '';

CHECK|KCEHC 11