141 while (<>) { chomp; $text .= "$_ "; }
143 $text =~ s/^.*<body[^>]*>//;
144 $text =~ s
,</body
.*$,,;
145 $text =~ s
,<script
[^>]*>[^<]*</script
>,,g
;
146 $text =~ s
,</P
>,\n,gi
;
147 $text =~ s
,<P
[^>]*>,\n,gi
;
148 $text =~ s
,</TD
>,\n,gi
;
149 $text =~ s
,<TD
[^>]*>,\n,gi
;
150 $text =~ s
,<([^>]*)>,,g
;
151 foreach $i (keys %entity) {
153 $text =~ s/$i/$val/g;
155 $text =~ s
, 
;, ,g
;
156 $text =~ s/&[^;]*;/ ENT /g;
