Evaluated proc %- {who q} {set id [lsearch -regexp [split [string toupper $::playlist($who)] \n\n] [string toupper $q]]; . $id}