Rules => { font => sub { my ($filter,$element) = @_; my $attr = $element->{attr}; delete $attr->{size} if $attr->{size} && $attr->{size} eq 1; delete $attr->{face} if $attr->{face} && lc($attr->{face}) eq 'verdana'; return keys %$attr ? 1 : 0; } }