my @chunks = $description =~ /^((?:[^\n]*\n){14}|.*)*/gs;