Wrote a version of the text extractor in Perl, just for kicks.