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