use warnings;
use strict;

my $str = <<'END_STR';
I am an example http://www.perlmonks.org/?parent=1176663;node_id=3333 text
that contains <https://perlmonks.pair.com/?node_id=1176651> two URIs
END_STR

use Regexp::Common qw/URI/;
use URI;

while ($str=~/$RE{URI}{-keep}/g) {
	my $uri = URI->new($1);
	print "$uri\n";
	print "  Scheme: ", $uri->scheme, "\n";
	print "    Host: ", $uri->host,   "\n";
	print "    Path: ", $uri->path,   "\n";
	print "   Query: ", $uri->query,  "\n";
}