print "$1, $2, $3\n"
              while $line =~ /GI=(\d+),(\w+),(\d+\-\d+)/g;