Help for this page
Select Code to Download
Select
or
download this
$field =~ s/([^\x20-\x7E])/sprintf("&#x%X;", ord($1))/eg;