Данный скрипт - мой первый опыт в написании tcl/tk программ. Так что не пинайте сильно за несообразности и ляпы. В конце концов я не профессиональный программист, я вообще радиоэлектронщик :) .
В программе используются 3 файла - иконка, файл с растром пунктира и подложка карты; так же в программе есть вызов для запроса данных о сети через прокси на sql, там на выходе данные вида:

библиотека начинается с

package provide name 1.7

создаем индекс

pkg_mkIndex /path

в вызывающей программе

lappend auto_path /path
package require name

<td>([^<]*)</td> - субрегулярка
regexp -all -inline {[[:<:]][0-9]+[[:>:]]} $a - найти все числа в $a
[A-Za-z] [[:alpha:]] - буквы (2 еще и нелатиницу цепляет)
[0-9] [[:digit:]] \d - цифры
[ \b\f\n\r\t\v] [[:space:]] \s  - пробелы, табуляции, переводы строк
[[:digit:][:alpha:]_] [\d[:alpha:]_] [[:alnum:]_] \w - все буквы, цифры и _
[[:<:]] and [[:>:]] - начало и конец слова
.+\n - помечается максимальный блок до последнего перевода строки
.+?\n - помечается символы до первого перевода строки
</p>
<td>(.*?)</td> - пометить блок между тегами 

опции regsub и regexp:
lineanchor - заставляет рассматривать ^$ как признаки начала и конца строки а не последовательности
linestop - исключает символ переноса из набора .*