Evaluated proc lregsub {list expr sub} { map $list {x {regsub $expr $x $sub}} }