Evaluated proc ungape_html str { regexp -all -inline {&(\d)\{1,4\};} $str }