Evaluated proc %- {who q} { set id [lsearch -regexp [split [string toupper [%% $who]] "\n"] [string toupper $q]]; if {$id > -1} { set ::playlist($who) [join [lreplace [split $::playlist($who) \n] [format %.f [expr floor($id/3)]] [+ [format %.f [expr floor($id/3)]] 3]] \n]; . "[%% $who]\nid: $id"} {. no matches} }