print join '",', map { s/(\A|"|\n)/"$1/g ; $_ } split /~/ while <DATA>;