#! /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__