Update read_file_regexp.tcl