# not all of these are valid urls
           # nor do I want all of them to match
           # For instance some invalids I DO want to match
           # but handle their invalidity later
my @url=qw(
           http://www.foobar.com
           http://www.foobar.com/foo
           http://www.foobar.com/foo/
           http://www.foobar.com/foo.pl
           http://www.foobar.com/.extension
           http://www.foobar.com?test
           http://www.foobar.com/foo?test
           http://www.foobar.com/foo/?test
           http://www.foobar.com/foo.pl?
           http://www.foobar.com/.extension?
           http://www.foobar.com/foo/bar/foobar.html
           http://www.foobar.com/foo/bar/foo.bar.html
           http://perlmonks.com/index.pl?node_id=68135
           http://perlmonks.com/index.pl??node_id=68135
           http:///file.ext?
           http:///.ext?
           http:///file.ext
           http:///.ext
           );