bioperl script which uses the heuristic method of tfasty