Guck mal in der Tk::Text-Doku zu INDICES oder MARKS nach. Prinzipiell geht es einfach per $text->get($index1, $index2), wobei die Indices auch Marknamen sein koennen und auch zusammengesetzt sein koennen (also z.B. "insert lineend + 1 line"). Evtl. muss man noch ein $text->index(...) verwenden, um den nummerischen Index zu erhalten.