$text = "<FONT face=arial>this is <FONT SIZE=2>TWO</FONT>bla<FONT color=red>red</FONT>bla bla</FONT>";

$text =~ s#<(.+?\s(.+?)=.+?)>(.+?)<\/.+?>#<$1>$3<\/$2>#g;

print "$text\n";