elsif ($char =~ /\d/) {
            print "digit ";
#            foreach (1..$char) { &parse(substr($string, $offset+1)); }