my $size = scalar unpack'C*', $txt;

##</code><code>##

my $size = scalar unpack'U*', $txt;