Also der Ausdruck scheint diese Protokolle abzudecken:
http
ftp
news
nntp
telnet
gopher
wais
mailto
file
prospero
ldap
cid
mid
vemmi
imap
nfs

Würde ich das für perl spezifisch umsetzen, könnte man die Regexp gut um 70% kürzen, da es sich meist um Wiederholungen handeln (die man vorher in variablen packen kann).
auch Konstrukte wie "[a-zA-Z\d]" oder "(?:\d+)" sind zwar richtig, aber etwas seltsam.
(Das letzte ")" scheint zu Fehlen, wenn nicht mich nicht verzählt habe. )

Insgesamt würde ich sagen, dass für 90% aller Fälle ein etwas unspezifischer Ausdruck reichen sollte.