TCL: hjælp til regexp

Hejsa

jeg har lidt problemer med et script jeg er ved at lave
men, her goes:

jeg har en html tekst
i den html tekst er der imellem en masse anden tekst ca 10 af: "<a href='html/for_messageDetail.asp?MSG_ID=93508' class='dnav'>TEXT</a>"

det jeg så gerne vil, er at få "93508" i en variabel og TEXT i en variable..

har leget med regexp:
regexp -nocase -all -- {href=\'html\/for_messageDetail.asp?MSG_ID=(.*)\' class=\'dnav\'>(.*)<\/a>} $data trash textvar

og

regexp -- {<a href='html/for_messageDetail.asp?MSG_ID=\S+' class='dnav'>(.*?)</a>} $html_code trash textvar

men ingenting virker.. nogen forslag?

mvh Martin Terp Jensen