while (my ($block) = $var =~ /(.{1,$max_length})/gs) {
   ...
}