#!/usr/bin/perl
#format go list


sub trim
{
  my @out = @_;
  for( @out)
  {
    s/^\s+//;
    s/\s+$//;
  }
  return wantarray ? @out : $out[0];
}


#open input file
$file = t;
# $file = "go.raw.sorted";
open(FILE, "< $file") or die "can't open $file: $!";

#read file
@lines = <FILE>;
$lastline="";

foreach $line (@lines)
{
  $prefix = substr($line,0,5);
  if($prefix eq "term:")
  {
    
    @arr=split(/term:/, $line);
    $subjects = trim(@arr[1]);
    $line = $subjects;
    $pre = '"';
    $line = join($line,$pre, '",') ;

    if( $lastline ne $line) 
    {
      print "$line\n";
      $lastline = $line;
    }
  }
}