use URI;
my $host = URI->new('http://www.perlmonks.org:8080/index.pl?whatever')->host;