perl实现蛋白质翻译以及蛋白质个数统计