

open(RH,"<fr.txt") or die;

while(<RH>){
	my ($tmp, $link) = split("http", $_);
	my ($a, $s, $h) = split("\t", $tmp);
	$link = "http" . $link;
	print "CATE=fr#DESC=$h#LINK=$link";
};