Select Code to Download

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

my $r = `gunzip -c test.txt.gz|cut -f3 -d'|'|sort|uniq -c`;
my $c  = substr( $r, 6, -1 );

3 CHECK
1 KCEHC