#!/usr/bin/perl

use strict;

local $/ = '{';

while( <DATA>) {
    next if /^{/;
    s/\n|{/ /g;
    print "{$_\n";
}

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