Как сохранить несколько строк файла после распознавания определенной строки до другой конкретной строки, а затем остановиться на языке tcl?

Question

Нужно написать код в Tcl. Предположим, что в файле много строк, и я хочу напечатать все строки после того, как мы узнаем " class{ "Unique"} " в конкретной строке, до того, как он распознает //End//, записанный в другой строке, а также предположим, что я не знаю, сколько строк между. Пожалуйста, помогите.