Evaluated proc %+ {who q} {set re [regexp -inline {. (.+?)\s+? \| \s(.+?)\s+?\|\s(.+?)$} [first [split [strip_all [song $q]] \n]]]; . $re}