fix perl syntax