#!/usr/bin/perl
use warnings;
use strict;
use HTML::TokeParser::Simple;

my $html = do{local $/; <DATA>};
my $p = HTML::TokeParser::Simple->new(\$html);
while (my $t = $p->get_token){
  next if $t->is_tag(q{font});
  print $t->as_is;
}

__DATA__
<p><font face="Verdana">one <a href="link.html">two</a> three</font></p>