Select Code to Download

while (<FILE)
{
...
    # code here to check whether $char is one you want to tally...
    }
}

my $u = unpack('U', $char);
$tally{$char}++ if ($u > 128);