I think that does the opposite.

Could be wrong, but don't you need:

print grep{!/<!DOCTYPE XMLDATA SYSTEM \"artist_royalty\.dtd\">/} @line
+s;
[download]

$code or die
Using perl at
The Spiders Web