or counting nibbles and dividing by two (bit fraught for multi-byte characters though):

use strict;
use warnings;

my $text = '.'x400;
my $summary = substr($text, 0, 500);
print length(unpack 'H*', $summary) / 2, "\n";
[download]

Prints:

400
[download]