Просто некоторые простые вещи регулярных выражений.
$facebook = "www.facebook.com/xxxxxxxxxxx";
$facebook =~ s/www\.(.*\.com).*/$1/; # get what is between www. and .com
print $facebook;
Возвращает
facebook.com
Вы также можете сделать эту работу для .net
, .org
и т. д. Что-то например:
s/www\.(.*\.(?:net|org|com)).*/$1/;