How do I do this in tcl Say I have a list $list1 containing 5 such entries blah_1_X11Y2_R0/Isi_bl_X8Y0/wrap_bl_X0Y0_R0/Isine_MY/core blah_1_X13
