my @d = unpack("A$n " x $length/$n, $field);