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

##</code><code>##

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

##</code><code>##

my $flag = 0;
while (<DATA>) {
  $flag = ($1 eq "AUTHOR") if /^\{(\w+)\}$/;
  print $_ if $flag and not /^\{/;
}