perl tidy