Help for this page

Select Code to Download

Select or download this

my $value = qq(<html>
<head>
<title>HTML Document?</title>
...
$value =~ s/<(([^ >]|\n|\s\w)*)>/ /gso;

print $value;

Select or download this

        $value =~ s{&}{&amp;}gso;
        $value =~ s{"}{&quot;}gso;
        $value =~ s{  }{ \&nbsp;}gso;
...
        $value =~ s{\t}{ \&nbsp; \&nbsp; \&nbsp;}gso;
        $value =~ s{\n}{<br>}gso;
        print $value;