$ ./klam.pl klam.pl
#!/usr/bin/perl -w

while (<>)
{{
    $text .= $_;
}
$_ = $text;

s/ ( { .+ } )/{$1}}/gsx;
print;