sub getd {

my $string = @_;
my $wanted;
my $domain;

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

return $wanted;
}

my $variable = "www.google.com";
print &getd($variable);   # this is line 29.