URI::Find This module does one thing: Finds URIs and URLs in plain text. It finds them quickly and it finds them all(or what URI::URL considers a URI to be.) It only finds URIs which include a scheme (http:// or the like), for something a bit less strict have a look at URI::Find::Schemeless.

jdtoronto

(?:(?:http)://(?:(?:(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])
+[.])*(?:[a
-zA-Z][-a-zA-Z0-9]*[a-zA-Z0-9]|[a-zA-Z])[.]?)|(?:[0-9]+[.][0-9]+[.][0-
+9]+[.][0-9
]+)))(?::(?:(?:[0-9]*)))?(?:/(?:(?:(?:(?:(?:(?:[a-zA-Z0-9\-_.!~*'():@&
+=+$,]+|(?:
%[a-fA-F0-9][a-fA-F0-9]))*)(?:;(?:(?:[a-zA-Z0-9\-_.!~*'():@&=+$,]+|(?:
+%[a-fA-F0-
9][a-fA-F0-9]))*))*)(?:/(?:(?:(?:[a-zA-Z0-9\-_.!~*'():@&=+$,]+|(?:%[a-
+fA-F0-9][a
-fA-F0-9]))*)(?:;(?:(?:[a-zA-Z0-9\-_.!~*'():@&=+$,]+|(?:%[a-fA-F0-9][a
+-fA-F0-9])
)*))*))*))(?:[?](?:(?:(?:[;/?:@&=+$,a-zA-Z0-9\-_.!~*'()]+|(?:%[a-fA-F0
+-9][a-fA-F
0-9]))*)))?))?)
[download]

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

Abigail

Oh, my bleeding eyes!! ;) Perhaps an entry for some Obfuscation - lots of nested lookaheads and that's where I got lost.

$RE{'URI'} for me!

There shouldn't be any lookaheads in that regexp.

Abigail

Have a look at Regex::Common, there are a number of expressions to extract URLs.

Hope this helps, -gjb-