Update perl syntax