($domain) = split '/', $string;
$wanted = (split /\./, $domain)[-2];

# or

$wanted = (split /\./, (split '/', $string)[0])[-2];