my $p=pack "V/a*", $s;
my $l=length $p;