if (m/^(((ht|f)tp(s?))\://)?(www.|[a-zA-Z].)[a-zA-Z0-9\-\.]+\.(com|edu
+|gov|m
 +il|net|org|biz|info|name|museum|us|ca|uk)(\:[0-9]+)*(/($|[a-zA-Z0-9\
+.
 +\,\;\?\'\\\+&%\$#\=~_\-]+))*$/){
                         my($host,$path) = ($4,$5);
                         print "$host => $path\n";
                         }
[download]

Some thoughts:

• You cannot use a  m// delimiter character (e.g.,  / forward slash) within a regex without escaping it. Your quoted regex
      m/^(((ht|f)tp(s?))\://)?...(/($|[a-z...]+))*$/
  has  / delimiter characters within it. I have rewritten the regex below with my favorite, balanced curlies, as delimiters.
• The  /x regex modifier and whitespace are your friends (see Modifiers). As it stands, your regex is almost unreadable (at least by me) even if it were correct. Rewriting the regex as syntactically (but not necessarily semantically) correct:

  if (m{    
      ^ (  # open capturing group 1 (was unbalanced)
          ((ht|f)tp(s?) \: //)?  # removed close paren after (s?)
          (www.|[a-zA-Z].) 
          [a-zA-Z0-9\-\.]+ \.
          (com|edu|gov|mil|net|org|biz|info|name|museum|us|ca|uk)
          (\:[0-9]+)* 
          (/($|[a-zA-Z0-9\.\,\;\?\'\\\+&%\$#\=~_\-]+))*
      ) $  # (maybe?) added for balance: close capture group 1
      }x
      ) {
      my($host,$path) = ($4,$5);
      print "$host => $path\n";
      }
  [download]

  I can identify parts of this regex, but what, for instance, is  (www.|[a-zA-Z].) ('www' followed by any character, or else a single alpha character followed by any character) supposed to match in a URL? (This is immediately followed by  [a-zA-Z0-9\-\.]+ \. without any delimiter.)
• In  (com|...|museum|us|ca|uk) the  us ca uk bit is suspicious. These are (I think) country codes, and should appear as part of a ccTLD like www.bbc.co.uk or www.what.ever.ac.ca and not on their own, as your regex allows. (Again, I'm sure CPAN has a module with regexes for matching URLs.)
• Is  (/($|[a-zA-Z0-9\.\,\;\?\'\\\+&%\$#\=~_\-]+))* really supposed to contain &? (This may be an artifact of Perlmonks site rendering.)
• Other parts I just can't figure out. (This may simply be due to ignorance on my part.)
• A nit: Non-capturing groups (see  (?:pattern) in Extended Patterns in perlre) are your friends. Entirely too much stuff is captured unnecessarily in this regex for my taste.
• A similar nit: Far too many characters are escaped unnecessarily; not every non-alphanumeric needs escaping.

Bottom line: I doubt this regex would do what you intend even if it would compile (and the rewritten version is at least syntactically correct). Yet again: CPAN.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.