Help for this page

Select Code to Download


  1. or download this
    # Tokenise
my @tokens = $doc =~ /<[^>]*>|./sg;
...

# Print resulting text
print join('', @text_tokens);
  2. or download this
    # Tokenise
my @tokens = $doc =~ /<[^>]*>|./sg;
...

# Print resulting text
print join('', $text);