push(@row, substr($string, 0, $len, '')) while length $string;