perl -e "print length,qq(\n) for split /1/,'1000000000000100000000000000100';"