auto format perl