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