Select Code to Download

my $var =~ m/\w/i;

http://www.perlmonks.org/?node=Seekers%20of%20Perl%20Wisdom

www.sub.sub2.domain.com
domain.com
ftp.domain.co.uk
adsl-44-33-22-11.dsl.bcvloh.sbcglobal.net

gcvloh.sbcglobal.net
sgcglobal.net

some.domain.com.au
domain.com.au

domain.com
domain.co.uk
domain.fm
domain.name
..etc, etc..

 my $d = "spam.yomama.www.zoelife4u.org";
 my @domain = split(/\./, $d);
...
 $maindomain = join("\.", @result);
 
 print "End: $maindomain\n;"