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