#!/usr/bin/perl -w

my $uri = "http://www.tc.mtu.edu/maps_drawings/cgi-bin/portinfo?devname=es326&port=all";

my ($scheme, $authority, $path, $query, $fragment) =
   ($uri =~ m;^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))?$;)
   [2-1, 4-1, 5-1, 7-1, 9-1];

print "URI: $uri\n";
print "Scheme: $scheme\n" if $scheme;
print "Authority: $authority\n" if $authority;
print "Path: $path\n" if $path;
print "Query: $query\n" if $query;
print "Fragment: $fragment\n" if $fragment;