# in URI::_init(C:/Perl/site/lib/URI.pm:76):
  $str =~ s/([^$uric\#])/$URI::Escape::escapes{$1}/go;
# where $uric is:
# \;\/\?\:\@\&\=\+\$\,\[\]A-Za-z0-9\-_\.\!\~\*\'\(\)%