push (my @domains,'www.drane.fresel.co.uk','www.drane2.ws.ru','www.drane3.Intern.com');

for (@domains)
{
my $name=''; my $tld='';

	if ($_=~/\.co\.uk$/)
	{
	$name=substr($_,0,rindex($_,'co.uk')-1);
	$tld='co.uk';
	}
	elsif ($_=~/\.ws\.ru$/)
	{
	$name=substr($_,0,rindex($_,'ws.ru')-1);
	$tld='ws.ru';
	}
	elsif ($_=~/\.com$/)
	{
	$name=substr($_,0,rindex($_,'com')-1);
	$tld='com';
	}

print "\$name:\t$name\n\$tld:\t$tld\n\n";
}