I am using HTML::TokeParser and this is what I would like to do.

Why tokeparser?

Its easiest to use HTML::TreeBuilder::XPath or XML::LibXML with tools like xpather.pl/htmltreexpather.pl which can give you paths to start with, and all the links here Re: Retrieve select information from HTML, they're examples(for tree-xpath and others)/walkthroughs/tutorials ...

#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd /;
use HTML::TreeBuilder::XPath;
my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse_content(<<'__HTML__');
<div id="ro">
<div id="goner">
</div>
shambo
</div>
__HTML__

my( $ro ) = $tree->findnodes( q{ //div[ @id = "ro" ] } );
$ro->detach;
$tree->eof;
$tree->delete;
undef $tree;
print "$ro\n";
print $ro->as_HTML, "\n";
$ro->findnodes( q{ //div[ @id = "goner" ] } )->shift->delete;
print $ro->as_HTML, "\n";
__END__
HTML::Element=HASH(0xd4dbc4)
<div id="ro"><div id="goner"></div> shambo </div>
<div id="ro"> shambo </div>
[download]

var $newContent =

perlintro, Tutorials► Data Types and Variables

More elaborate and coprehensive tutorial in http://learn.perl.org/books/beginning-perl/, Learn Perl in about 2 hours 30 minutes, perlintro, chromatics free book Modern Perl a loose description of how experienced and effective Perl 5 programmers work....You can learn this too.