while (scalar(@inhalt) > ($ze + $anzahl) && $inhalt[$ze + $anzahl + 1] eq ' ') {