perl -pe 's/,/|/ for 1 .. 10'  # Oops!