$tmp = uc(substr(($indata,$i,1));
#            a      bc            cb  ... no a
    switch (($tmp) {
#          ab    b  ... no a