perl -pe 's/,/|/ for ($_) x 10'