xmllint --format data1.xml | perl -ne 'print unless /booklist|\?xml /'