use the URI module!

  use URI;

  my $uri = URI->new( "http://www.blablubber.net/bla/index.html" );
  my $domain = $uri->host();
[download]

Regards, James.