($domain) = $url =~ m|www.([A-Z a-z 0-9]+.{3}).|x;