Perltidy up