$re = "~(?xi)
(
  (?:
    https?://                                   # http or https protocol
    |                                           #   or
    (?://)?www\d{0,3}[.]                        # www., www1., www2. www999.
  )
  (?:
  [^\s\[\]()\{\}<>`!;:'\",«»“”‘’\?&/]+          # domain
  )
  (?:                                           # One or more ungreedy:
    [^\s\[\]()\{\}<>`!;:'\",«»“”‘’]+            # Run of non-space, non-()<>
    |                           #   or
    \((?:[^\s()<>]+|(?:\([^\s()<>]+\)))*\)      # balanced parents ()
    |                           #   or
    \[(?:[^\s\[\]<>]+|(?:\[[^\s\[\]<>]+\]))*\]  # balanced parents []
    |                           #   or
    \{(?:[^\s\{\}<>]+|(?:\{[^\s\{\}<>]+\}))*\}  # balanced parents {}
  )+?
  (?:                                           # One or more greeady:
    [^\s\[\]()\{\}<>`!;:'\",«»“”‘’\.\?]+        # Run of non-space, non-()<>
    |                           #   or
    \((?:[^\s()<>]+|(?:\([^\s()<>]+\)))*\)      # balanced parents ()
    |                           #   or
    \[(?:[^\s\[\]<>]+|(?:\[[^\s\[\]<>]+\]))*\]  # balanced parents []
    |                           #   or
    \{(?:[^\s\{\}<>]+|(?:\{[^\s\{\}<>]+\}))*\}  # balanced parents {}
  )+
)~";