Select Code to Download

my $r = `gunzip -c $file|cut -f3 -d'|'|sort|uniq -c`; 
my $c1 = substr( $r, 16,-2); 
my $c2 = substr( $, 9,-9);