while(<DATA>){
chomp;
$_ =~ s/{AUTHOR}([^{]+)//g;
print $1;
}


__DATA__
{TAG}
tag1
{AUTHOR}
By June Fletcher
JOURNAL
{TAG}
tag2
TOM MacCUBBIN
{DATA}
data1
{AUTHOR}
Richard White
{AUTHOR}
MacCUBBIN
{SOUR}