print join('|' => map { /,/ ? '"'.$_.'"' : $_ } @$row), "\n";