$output =~ s/(\P{IsASCII})/sprintf("&#%4x;",$1)/g;