finished the extractor perl thingy