my @d = unpack "(A$n)*", $string;