matlab_regexp_rename_variable

for i = 1:26
    for j = 1:4
        switch j
            case 1
                suffix = 'aa';
            case 2
                suffix = 'bb';
            case 3
                suffix = 'st';
            case 4
                suffix = 'mm';
        end
    eval(['qqq', num2str(i), suffix, '= i*j;']);
    end
end

for i = 1:41
    for j = 1:4
        switch j
            case 1
                suffix = 'aa';
            case 2
                suffix = 'bb';
            case 3
                suffix = 'st';
            case 4
                suffix = 'mm';
        end
    ii = i^2-i+5;
    eval(['L', num2str(ii), suffix, '= ii-j;']);
    end
end

variable_names = who;
for i = 1:size(variable_names, 1)
    out1 = regexp(variable_names{i}, 'L(\d*)([a-z]{2})','tokens');
    out2 = regexp(variable_names{i}, 'qqq(\d*)([a-z]{2})','tokens');
    if ~isempty(out1)
        switch char(out1{1}(2))
            case 'aa'
                prefix = 'a';
            case 'bb'
                prefix = 'b';
            case 'st'
                prefix = 'c';
            case 'mm'
                prefix = 's';
        end
        eval([prefix, char(out1{1}(1)), '=', variable_names{i}, ';']);
    elseif ~isempty(out2)
        switch char(out2{1}(2))
            case 'aa'
                prefix = 'a';
            case 'bb'
                prefix = 'b';
            case 'st'
                prefix = 'c';
            case 'mm'
                prefix = 's';
        end
        eval(['L', prefix, char(out2{1}(1)), '=', variable_names{i}, ';']);
    else
        continue
    end
end