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