my $d = "spam.yomama.www.zoelife4u.org";
 my @domain = split(/\./, $d);

 my $tld = pop(@domain); #org
 my $baredomain = pop(@domain); #zoelife4u

 my @result = ( $baredomain, $tld );
 $maindomain = join("\.", @result);
 
 print "End: $maindomain\n;"