Select Code to Download

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

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

$lint->parse ($html);