print grep{! /<!DOCTYPE XMLDATA SYSTEM \"artist_royalty\.dtd\">/} @lines;