if($l=~/^\[([^\]]+)\]/) {
   $j=$1; $k=$1;
   $j=$1, $k=$2 if($j=~/^([^\|]+)\|(.+)$/);
		    
   $url[$uc]=$j; $l=$k; $op="url$uc"; $uc++;
   print "$op --> $j | $k\n";
		    
   $main_index_list->insert("end",$l,$op);
   $main_index_list->tagConfigure($op,-foreground=>"blue", -data=>$j);
   $main_index_list->tagBind($op,"<3>",eval "sub{do_url('$op');}");
}