my $s2 = unpack 'v/A*', "a";