$tmp =~s/TBGL_([a-z]+)/$1_gl/i;