Parsing out html with egrep

I need to cut a dynamic piece of content/syntax out of an html file on a
regular basis. The following code is an example of what I need to awk|cat
sed|head|cut|egrep out

<h2>Network Sensor XPUs</h2>
<table class="description" width="90%" cellspacing="1" cellpadding="15"
align="center"><TR><TD WIDTH="10%" ALIGN="center"
class="descriptionHeader"><b>XPU Number</b></TD><TD WIDTH="10%"
ALIGN="center" class="descriptionHeader"><b>Date</b></TD><TD ALIGN="center"
class="descriptionHeader"><b>Description</b></TD><TR>
<TD ALIGN=CENTER class="description" ALIGN="center"><A
HREF="ican'tposturls.no.good"><b>NS_24.22</b></A></TD><TD
class="description" ALIGN="center">11-23-2005</TD><TD
class="description">This critical Content Update XPU (X-Press Update),
featuring
Virtual Patch technology, contains 1 new event and provides
protection for an Internet Explorer vulnerability that allows
remote code execution. For more information about this
vulnerability, see the following X-Force Alert:
</TD>
</TR>

I've tried numerous command options/syntax but I'm still unable to achieve
this.

[user@box]# cat html.file | egrep '[<h2>Network Sensor XPUs</h2>.*</TD>]' >
newhtml.file

So...in essence I need everything from "<h2>Network Sensor XPUs</h2>" ->
"</TR>".

Any help???

Thanks!

- J

Don't post in more than one forum tool.

So here's what I ended up with...

#!/usr/bin/perl 

use LWP::Simple;
use File::Compare;
use File::Copy;
use MIME::Lite;

$page = get("http://www.iss.net/db_data/xpu/RSNS.php");
$html = $page;
$temp = "/var/spool/iss/test/temp.html";
$archive = "/var/spool/iss/test/archive.html";
$mimelite = "/var/spool/iss/test/mimelite.pl";

#sanitize output
$html =~ m|</h2>(.+?)</TR>|s;
#print "$1\n";

open OUTPUT, ">$temp";
print OUTPUT "$1\n";
close OUTPUT;


if (compare("$temp","$archive") == 1) {
### Create the multipart "container":
    $msg = MIME::Lite->new( 
                 To      =>'user@myemailaddy',
                 Subject =>'ISS Sensor Updates',
                 Type    =>'multipart/related'
		 );

    $msg->attach(Type => 'text/html',
                 Data => "New ISS Sensor updates are available.<br>"
                 );

    $msg->attach(Type     =>'text/html',
                 Path     =>'/var/spool/iss/test/archive.html',
                 Filename =>'archive.html',
		 Disposition => 'inline'
		 );

    $msg->send();
}

unlink $archive;
move($temp, $archive);