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