set folder "/h/apps/new/app/k1999/some_end_text"
regsub {/app/[^/]+} $folder "" newfolder
puts $newfolder