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