Help for this page

Select Code to Download


  1. or download this
    $data =~ s/
          <                 # First '<'
...
           )                # End capture
          >                 # Final '>'
          /&lt;$1&gt;/gsix;
  2. or download this
    $data =~ s/<(?!(?:\/?br>|\/?p>|\/?font[^>]*>|\/?h[1-6]>))([^>]*)>/&lt;
+$1&gt;/gsi;