while (<FILE)
{
    while ($_ =~ /\G(.)/g)
    {
	my $char = $1;
	# code here to check whether $char is one you want to tally...
    }
}
##</code><code>##

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