my $key = "searchword";
my $path = "C:\\test\\list.txt";

open(INFILE, "<$path");
	while (<INFILE>) {
		if ( /^$key\t(www\.[^.]*\.com)/i ) {
			my $word = $1;
		}
				
	}

print $word;	
close(INFILE);