$ cat Bible.txt |  perl -e 'local $/; $c = <>; $d = $1 if $c =~/(Gen.+tous!)/s; print  length $d;'
4167072

$ wc  Bible.txt
  32324  714470 4167075 Bible.txt