set list [list]
foreach line [split $files \n] {
if {[regexp -- {
текст/(.*?) | } $line - a1]} {
lappend list $a1
}
}
if {![llength $list]} {значит облом с парсером; return}
set randline [lindex $list [rand [llength $list]]]
putserv "PRIVMSG $chan :$randline"