Re: More Regexp Confusion

[AltBlue]

What do you mean by "xx"? A "constant" string? For example, if $foo = 'GOAT', you mean to match strings like:

G..O..A..T
GaaOaaAaaT
GabcOabcAabcT
G<<<<<O<<<<<A<<<<<T

If this assumption is correct, this is a possible way (yet quite inefficient) to handle it:

my @foo = split //, $foo;
$foo = shift(@foo) . q{(.*?)} . join q{\2}, @foo;

while ( my $line = <FH> ) {
    s/($foo)/$stuff1$1$stuff2/g;
}

[mdunnbass]

Actually, it's not a constant string. I was trying to say in the OP that I didn't care what the 'xx' was, but I guess I didn't explain that very well.

In reality, most likely, it'll take the form of possible HTML tags. I say possible, because there most likely will be none, but there might be some, and if they're there, they may be either opening or closing tags, or even tags with multiple attributes. I do know that any text will be lowercase. So, for instance, given $foo = 'GOAT', I want all of the following to match:

asdfgGOATaewrjgn
ererGOAskjgbrTslkgjnjng
ccG<!-- comment on status of global geopolitical economics -->OAjgTsvs
aGO<h3>i hate clowns</h3>ATbbb

And in the last example, the output that I want would be:

'a' . $stuff1 . 'GO<h3>i hate clowns</h3>AT' . $stuff2 . 'bbb'

I hope that helps.

Matt