a simple perl code indexer