use URI;

my $uri = URI->new( 'http://yahoo.co.uk/notfound.html' );
print $uri->host;