sub cleaned_up {
  my $self = shift;
  $self->del_attr('font') if $self->is_start_tag;

  return $self->as_is;
}

...

print $token->cleaned_up;