#!/usr/bin/env perl

use warnings;
use strict;

while (<DATA>) {
    unless (/{/ .. /}/) {print}
}

__DATA__
keep
{
junk
junk2
junk3
}
keep
keep2
keep3
{ junk4 }
keep4

##</code><code>##

keep
keep1
keep2
keep3
keep4