Select Code to Download

sub encode_entities {
    my ($self, $text) = @_;
...
    $text =~ s/([^\x20-\x7E])/sprintf("&#x%X;", ord($1))/eg;
    return $text;
}