Select Code to Download

use warnings;
use strict;
...
    print "    Path: ", $uri->path,   "\n";
    print "   Query: ", $uri->query,  "\n";
}

# NOTE this is based on a quick skim of RFC 3986 and may not be comple
+te!
my $url_re = qr{
...
    my $uri = URI->new($1);
    print "$uri\n";
}