my @d = $field =~ m[.{1,$n}]g;