use URI;

my $uri = new URI ($some_uri);

##</code><code>##

my($scheme, $authority, $path, $query, $fragment) =
$uri =~ m|^(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?|;