$string=~s/[\x7f-\xff\&]/"&#".ord($1).";"/ge;