Perl script that checks for OCR errors in scanned digital books