new($url_in); my %parts = map { $_ => $url->$_ } qw/scheme username password host port path query fragment/; $parts{full_url} = $url_in; ($parts{domain} = $parts{host}) =~ s/^[^.]+\.//; ($parts{tld} = $parts{domain}) =~ s/(?:[^.]+\.)+//; ($parts{page} = $parts{path}) =~ s#(?:[^/]*/)+##; return \%parts;]]>