perl -p -e 's/^(\d+)\n/"'\''$1'\''"/e'