#! /usr/bin/perl

use strict;
use warnings;
use HTML::TreeBuilder;

my $t = HTML::TreeBuilder->new_from_file(*DATA)
	or die qq{cant build tree: $!\n};

my @anchors = $t->look_down(_tag => q{a});
for my $anchor (@anchors){
	if ($anchor->as_text eq q{NEXRAD Level III}){
		$anchor->replace_with_content;
	}
}

print $t->as_HTML(
	undef,
	q{  },
	{},
);

$t->delete;
	
__DATA__
<TABLE width=745 BORDER=0 CELLPADDING=2 cellspacing=0>
<TR>
<TD colspan=4 bgcolor=green align=center cellpadding=0>
<font color=green>.</font>
</TD>
</TR>
<TR>
<TD width=25% rowspan=4 BGCOLOR="#DEB887" align=center>
<p id="entrypor"><font color=#127d37 face=Helvetica size=3><B>Radar&nbsp;</font></B><a href="#more-radar" onclick="moreradar()" title="Click to show products and output type selction options.">[-]</a></p>
</TD>
<TD bgcolor="white" width=35% valign=middle align=left>
&nbsp;<span id="entrylinks"><A HREF="HAS.FileAppSelect?datasetname=6500">NEXRAD Level II</A></span>
</TD>
<TD bgcolor="white" width=20% valign=middle align=left>
<span id="accesslinkage"><i><A HREF="HAS.FileAppSelect?datasetname=6500">access</A> | <A HREF="http://www.ncdc.noaa.gov/oa/documentlibrary/surface-doc.html#6500" target="infowin">info</A> | inv | <A HREF="http://www.ncdc.noaa.gov/oa/documentlibrary/index.php?choice=dsi&searchstring=6500&submitted=1&submitted=Search" target="docwin">docs</A></I></span>
</TD>
<TD bgcolor="white" width=20% valign=middle align=right>
<span id="entrypor">06/05/1991 - 06/15/2009</span>
</TD>
</tr>
<TR>
<TD bgcolor="#eaeaea" width=35% valign=middle align=left>
&nbsp;<span id="entrylinks"><A HREF="HAS.FileAppSelect?datasetname=7000">NEXRAD Level III</A></span>
</TD>
<TD bgcolor="#eaeaea" width=20% valign=middle align=left>
<span id="accesslinkage"><i><A HREF="HAS.FileAppSelect?datasetname=7000">access</A> | <A HREF="http://www.ncdc.noaa.gov/oa/documentlibrary/surface-doc.html#7000" target="infowin">info</A> | inv | <A HREF="http://www.ncdc.noaa.gov/oa/documentlibrary/index.php?choice=dsi&searchstring=7000&submitted=1&submitted=Search" target="docwin">docs</A></I></span>
</TD>
<TD bgcolor="#eaeaea" width=20% valign=middle align=right>
<span id="entrypor">05/07/1992 - 06/14/2009</span>
</TD>
</tr>
<TR>
</TR>
</table>