$text =~ s/([^A-Za-z0-9\-_.!~*'()])/$escapes{$1}/g;