$str =~ /([\0-\x09\x0B\x1F])/sprintf("\\x%02X", ord $1)/ge;