Perl Regex to get the root domain of a URL

Question

How could I get some part of url?

For example:

http://www.facebook.com/xxxxxxxxxxx
http://www.stackoverflow.com/yyyyyyyyyyyyyyyy

I

Answer 1

Just some simple regex stuff.

$facebook = "www.facebook.com/xxxxxxxxxxx";

$facebook =~ s/www\.(.*\.com).*/$1/; # get what is between www. and .com

print $facebook;

Returns

facebook.com

You may also want to make this work for .net, .org, etc. Something like:

s/www\.(.*\.(?:net|org|com)).*/$1/;