hm, quite huge regexp, hm ?
I think I would have done it in more than one step. Leaving the ports aside, you could for instance start with extracting possible IP addresses with something like:
/(\d{1,3}(?:\.\d{1,3}){3})/
Then you could have a function test the validity in various respects.
-- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.pl
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>