perl tidy formatting