the problem is that sometimes the words can have "(" such as tbgl_translate(...)

    s/tbgl_(\pL+)/${1}_gl/g;
[download]

thank you Fisher and JavaFan ,i mean such as tbgl_translate(...) ---> translate_gl(...)
your code works with many words,sample of that converted words inside htm files such as:
href="SetMaterialSpecular_gl.htm">SetMaterialSpecular_gl
CLASS="f_Code_Keyword">SetMaterialSpecular_gl
but i have found that some words does not converted, it is in htm files not text , the not converted words like this inside the htm files:
CLASS="f_Code_Keyword">TBGL_SetMaterialDiffuse( hMaterial, R, G, B )
i want to replace TBGL_SetMaterialDiffuse(...) by
SetMaterialDiffuse_gl(...)
and so on for other words
my code until now using javaFan regex:


$file = "TBGL_SetMaterialDiffuse.htm";
open(FILE, $file) || die $!;
$txt = do { local $/; <FILE> };
close FILE;
$txt =~ s/tbgl_(\pL+)/${1}_gl/g;
open FILE, ">output.htm" or die $!;
print FILE $txt;
close FILE;
[download]

thanks

See, that's what you get from not specifying your problem, and just giving an example that doesn't cover all the cases. You got an answer to your described problem, and now you have to come back with "well, really, the problem I described wasn't really the problem I'm trying to solve. In fact, this is the problem....".

Use /i. For details, RTFM.

add case-insensitive option.

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

and again, perldoc perlretut

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

It's very useful to 'factor' regexes as one would factor subroutines. The relationships of the parts to each other and to the whole are clarified, and it becomes easier to change a part when necessary. This clarity and ease of maintenance can be important for complex regexes (or for simple regexes when you're trying to debug one at 3 AM!).

>perl -wMstrict -le
"my $prefix = qr{ (?i) \b tbgl_ }xms;
 my $word   = qr{ \w+ }xms;
 my $suffix = '_gl';
 ;;
 print '--- output ---';
 for my $pw (@ARGV) {
   (my $ws = $pw) =~ s{ $prefix ($word) }{$1$suffix}xmsg;
   print qq{'$pw' -> '$ws'};
   }
"
"tbgl_foo xxx %$# tbgl_bar()"
"TBGL_foo tBgL_bar"
"tbgl tbglfoo tbgl_"
"tbgl_%$# Xtbgl_foo"
--- output ---
'tbgl_foo xxx %$# tbgl_bar()' -> 'foo_gl xxx %$# bar_gl()'
'TBGL_foo tBgL_bar' -> 'foo_gl bar_gl'
'tbgl tbglfoo tbgl_' -> 'tbgl tbglfoo tbgl_'
'tbgl_%$# Xtbgl_foo' -> 'tbgl_%$# Xtbgl_foo'
[download]

In the example above, it was only necessary to change the definition of  $prefix from
    my $prefix = qr{ \b tbgl_ }xms;
to
    my $prefix = qr{ (?i) \b tbgl_ }xms;
when somebody said "Oh, by the way, the prefix pattern is supposed to be case insensitive."

One could use the /i regex modifier (see Modifiers in perlre) instead of the  (?i) extended pattern (see Extended Patterns in perlre) to make  $prefix case insensitive, but the latter is less easy to overlook.

One of the following two options should work for all cases you listed. I had to use two because I don't know what your desired result is for the 'href' line.

OPTION 1
If you want your example
"href="tbgl_SetMaterialDiffuse.htm">
to look like
"href="SetMaterialDiffuse.htm_gl">
you should use the following:


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


OPTION 2
If you want that example to look like
"href="SetMaterialDiffuse_gl.htm">
use this:


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


I hope this helps :)

Here is a quick script to test the cases


#!/usr/bin/perl

use strict;

my @lines = (
'title>TBGL_SetMaterialDiffuse</title',
'Heading1">TBGL_SetMaterialDiffuse</span',
'href="tbgl_SetMaterialDiffuse.htm">',
'">tbgl_SetMaterialDiffuse</',
'f_Code_Keyword">TBGL_DeleteMaterial</span'
);

foreach my $tmp (@lines) {
        print "$tmp\n";
        #$tmp =~s/TBGL_([a-z]+(\.[a-z]+)?)/$1_gl/i; #case 1
        $tmp =~s/TBGL_([a-z]+)/$1_gl/i; #case 2
        print "$tmp\n\n";
}
[download]

thank you wallisds , your second regex works well ,
i have applied it to the htm file and replaced the words as expected
thanks

s/tbgl_translate/translate_gl/
[download]