BEGIN {
	FS = ","
}
NR > 1 {
	gsub(/
/, "", $NF)

	for (i = 1; i <= NF; i++)
	{
		gsub(/\$/, "", $i)
		if ($i ~ /^"/)
		{
			while ($i !~ /"$/)
			{
				gsub(/\"/, "", $i)
				printf "%s", $i
				i++
			}
			gsub(/\"/, "", $i)
		}
    		printf "%s|", $i

	}
	printf "|\n"
}