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