use Regexp::Common;
print $&, "\n" while $txt =~ /$RE{URI}/g;