my $bytecount = length pack 'C0a*', $string;