Select Code to Download

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

#!/usr/bin/perl
...

print $req_string, "\n";