Help for this page
use Modern::Perl; use URI::Split qw/uri_split/; ... say "$_ => $parts{$_}" for grep { defined $parts{$_} } @keys;
scheme => http auth => www.bing.com path => /default.aspx