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