open(S, '<', $ARGV[0]); print <) { my @a=split(/ +/); chomp $a[0]; chomp $a[3]; if($a[0] && !$a[3]) { printf("%s,\n", $a[0]); } } print "};\n"; close(S);