$field =~ s/([^\x20-\x7E])/sprintf("&#x%X;", ord($1))/eg;