$ cat quat.xml $ perl -MXML::Simple -le " print XMLout( XMLin( shift ), qw! RootName DEFJOB XMLDecl ! , qq[\n] )" quat.xml