Help for this page

Select Code to Download


  1. or download this
    $text = "<tag#1>BLA</tag#2><tag#2>BLA</tag#2><tag#3>BLA</tag#3>";

...
}

print "$text\n";
  2. or download this
    $text = "<FONT face=arial>this is <FONT SIZE=2>TWO</FONT>bla<FONT colo
+r=red>red</FONT>bla bla</FONT>";

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

print "$text\n";