$ perl -MURI -le"print URI->new( shift )->host " http://search.cpan.org/
search.cpan.org

$ perl -MURI -le"print join q!.!, (split /\./, URI->new( shift )->host)[-2,-1] " http://search.cpan.org/
cpan.org