perl -le '$_ = q["ab"cde"fgh"]; print join "\t", map qq["$_"], /[^"]+/g'