#!/usr/bin/perl
use strict;
use warnings;
while (<DATA>)  {
chomp $_;
if($_ !~ /^{/){
                $_ =~ s/\s+//gi;
                $_ =~ s/\n//gi;
                $_ =~s/\r//gi;
print "$_\n";
                        }
}

__DATA__
{AUTHOR}
author1
staff1
{HEADLINE}
DISPOSABLE DECOR: THE CUTTING EDGE DULLS FAST\
STYLE AT A SPEED
USUALLY ASSOCIATED WITH WARDROBE ITEMS.