perl -ne 'print unless /booklist/' < data.xml