Help for this page

Select Code to Download


  1. or download this
    $_ = join '', <DATA>;
while(s/<(?:\/?\w|!)[^<>]*>/ /sg) {}
...
</tr></table>

4 < 5 > 3
  2. or download this
    $_ = join '', <DATA>;
while (s/<(?:\/?\w|!)[^<>]*>/ /sg) {}
s/\s+/ /g; s/^ | $//;
print;