my @chunks = $string =~ /(?:[^\n]*\n){1,20}/g;