$data = "data ý ¶ data";

$data =~ s/([^\w\`\~\!\@\#\$\^\&\*\(\)\-\_\=\+\[\{\]\}\\\|\;\:\'\,\<\.\>\/\?\x22\xA0\s\x25\xA9\xA7])/ord($1)/g;