in reply to regex replace problem

s/tbgl_([^ \t(_]+)/$1_gl/;

[download]
please read the `perldoc perlretut`.

In Section Seekers of Perl Wisdom