Use a regular expression:
tcl>set data {
001850
}
tcl>regexp {UnitNumber[^>]*>([^>]*)echo $mnum
001850
You could also pick an xml package and use it to access that little bit of data. Or you could build a DTD or XML schema format and then an XML translate or TPS w/GRM and get there too… eventually.