# benzer2gde.pl
# convert JBenzer's associated matrix into GDE input file format.
# N. Khiripet, NECTEC
# Bioquest Summer Workshop 2004

@gname;
@intreract;
@interact;
while (<>) {
	chomp;
	if (/,([^,]+)\s*$/) {
		push @gname, $1;
		push @interact, $`;
	}
}
for ($j=0;$j<$#interact+1 ;$j++) {
	@ls = split(',',$interact[$j]);
	$cnt = $interact[$j] =~ tr/1//;
	for ($i=0;$i<$#ls+1 ;$i++) {
		if ($ls[$i]==1) {		   
			   if ($i != $j || $cnt == 1){
 			      print '"'.$gname[$j].'","'.$gname[$i],"\"\n";
			   }
		}
	}
}