$q =~ s/([^$URI::uric])/$URI::Escape::escapes{$1}/go;