my $tag = "";
while (<DATA>) {
	($tag = $1, next) if /\{(\w+)\}/;
	print $_ if $tag eq "AUTHOR";
}