URI

use URI qw( );

for (
   'http://hostname.company.com:80//directory/...',
   'http://hostname.company.com:80//',
) {
   my $url = URI->new($_);
   print $url->host, ":", $url->port, "\n";
   print $url->path, "\n";
   print "\n";
}
[download]

hostname.company.com:80
//directory/...

hostname.company.com:80
//
[download]