C:\Dokumente und Einstellungen\Renee>perl
my $string = "test {hallo} test }";
$string =~ s/({[^}]+})/{$1}/g;
print $string;
^D
test {{hallo}} test }