sub _text {
    my ($self,$text) = @_;

    while ( $text =~ /([^\x09\x0A\x0D -~])/g ) {
        my $bad = $1;
        $self->gripe(
            'text-use-entity', 
                char => sprintf( '\x%02lX', ord($bad) ),
                entity => $char2entity{ $bad },
        );
    }
}

##</code><code>##

$html =~ s/([^\x09\x0A\x0D -~])/sprintf("&#%d;",ord($1))/eg;

$lint->parse ($html);