Inside >Wonderful Web Servers and Bandwidth Generously Provided by
<
Inside >pair Networks
<
Inside >
<
Inside >
<
Inside >
<
Inside >
<
Inside >
<
Inside >
<
Outside >
<

##</code><code>##

use warnings;
use strict;
use WWW::Mechanize;

my $webcrawler = WWW::Mechanize->new();
my $uri = URI->new('http://perlmonks.org/?node_id=482163');
$webcrawler->get($uri);

my @stripped_html;
my $x = 0;
my $content = $webcrawler->content;
my $parser = HTML::TokeParser->new(\$content);
while($parser->get_tag)
  {
  $stripped_html[0] = $parser->get_trimmed_text()."\n";
  print "Inside >${stripped_html[0]}<\n";
  }

print "Outside >${stripped_html[0]}<\n";

##</code><code>##

push @stripped_html, $parser->get_trimmed_text()."\n" while($parser->get_tag);
print join "", @stripped_html;