Perl para formatear datos XML

¿Cómo puedo usar Perl para hacer legibles los datos XML? La fuente es una línea. Necesito formatearlo. Por ejemplo:

<data><project>1234</project></data>

convertir a

<data>
    <project>
       1234
    </project>
</data>

Gracias