fix perl variables