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