cat xmlpmonks.xml | perl -ne "use XML::Twig; $/=''; $t=XML::Twig->new(keep_spaces=>1); $t->parse(<>) or die $!; $t->print;"