Replace all instances but one

[mpalmer12345]

Here's a question I have been puzzling over for a while.

I want to replace all pretags in a text with "", EXCEPT the   pretag.

I figure that $text =~ s/&[a-zA-Z]+?;//ig; will wipe out ALL of them. But how do I wipe out all but  ?

I've tried a few dumb things, but I can't seem to make it work, so I appeal to the higher forces here.

 

[mikevh]

This seems to work:

$text =~ s/(&[a-zA-Z]+?;)/lc($1) eq " "? $1: ""/eig;

Or, less cryptically:

while ($text =~ /(&[a-zA-Z]+?;)/ig) {
    if (lc($1) ne " ") {
        $text =~ s/$1//;
    }
}

 

[mpalmer12345]

beautiful! thanks!