use URI module, or at least read http://search.cpan.org/perldoc?URI#PARSING_URIs_WITH_REGEXP because it shows the official regex to use for this if you aren't going to use the URI module

See also Regexp::Common::URI, URI::QueryParam,URI::Query, CGI, URI::PathAbstract and site:perlmonks.org URI:: OR URI-