my perl mode for NGS analysis