Evaluated proc lgrep {regex list} {set ret "";foreach a $list {if {[regexp $regex $a]} {lappend ret $a}};return $ret}