set l {set l {L};regsub L $l $l p;puts $p};regsub L $l $l p;puts $p