my $flag;

while(<DATA>){
  if (/^{(\w+)}/) {
    $flag = $1;
  }
  elsif ($flag =~ m/AUTHOR/) {
    # "store" values here
  }
}