Some XML apps will be seriously annoyed by your adding whitespace within the leaf level tags. Just a thought but I'd test that carefully before you transform it for more than just debugging by eye.

--
$you = new YOU;
honk() if $you->love(perl)