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"