set folder "/h/apps/new/app/k1999"
regsub {/app\M.+$} $folder "" tflex_install
puts $tflex_install