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