Evaluated proc %- {who q} {set plist ""; set parts [split $::playlist($who) \n]; for {set i 0} {$i < [llength $parts]} {incr 3} { set part [lrange $parts $i [+ $i 3]]; if {[regexp $q $part] == 0} { append plist [join $part \n]\n }  }; . $plist }