Select Code to Download

    for loop over records from metadata table {
    slurp $docid.txt (from pdftotext) into $contents;
...
        print "$textfile didn't contain $s\n";
    }
    }

    my @s = split(/\W+/, $s);
    foreach $word (@s){
...
        }
    }
    print "pos = ", pos $contents, ",$s|" unless $nomatch;

real    0m0.150s
user    0m0.044s
sys    0m0.068s

time tr -d '\n' < 250234.txt | egrep 'the...pattern'
real    0m7.178s
...
real    0m0.027s
user    0m0.012s
sys    0m0.008s