Evaluated proc w q {regexp -inline {id="Result".+?<plaintext>(.+?)</plaintext>} [w_ $q]}