retezec = input('Zadejte øetìzec:', 's');
oddel   = input('Zadejte oddìlovaè:', 's');
 
if isempty(oddel)    % treats all cases when oddel = '' / ' '
    oddel = ' ';
    fprintf('space ('' '') is used instead of nothing');
end
 
Cell    = cell(1, 1); % allocation
Vowels  = ones(1, 1); % allocation
here    = 1;
while ~isempty(retezec)
    [token,retezec] = strtok(retezec, oddel);
    Cell{here}      = token;
    Vowels(here)    = length(regexp(token, '[aeiou]'));
    here            = here + 1;
end
celldisp(Cell);
fprintf('%s\n', mat2str(Vowels));
