Select Code to Download

my $html = ...
my $tree = HTML::TreeBuilder->new;
$tree->parse($html);
my $text = $tree->as_text();

# delim => delimiter to replace stripped tags
# escaped_delim => text to escape delimiter with if present in content
...
  }
  return $text;
}