$s = "http://www.blablubber.net/bla/index.html";
($url,undef) = split(/\//,$s);
@domain = split(/\./,$url);
$tld = pop(@domain);
$domainname = pop(@domain);
$fqdn = "$domainname.$tdl";