while ($line = <STDIN>) {
    @flds = split("\t", $line);
    foreach $fld (@flds) {
    	if ($fld =~ s/^"(.*)"$/\1/) {
		$fld =~ s/""/"/g;
	}
    }
    print join("\t", @flds), "\n";
}