perl -pe "s/^(\d+)\n/'\$1', /g; (chop, chop) if eof"